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ABSTRACT 


Text editors and text formatters/processors are 
described. The staterof-ethe-art in text processing 1$ 
examined. Desiaqn and implementation considerations in 
developina an interactives intearatedr, screenroriented text 
editing and formattina system are discussed. A Berkeley 
PASCAL imnlementation of such a svstem for a PDP=11 ninio 
comouter under the UNIX tinesharing svstem is oresented. 
Intended system users are non-comouter scientistSs e@.9. 
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IT. INTRODUCT LON 


Awe VHESITS OBJECTIVE 

Most existing text editors and formatters currently 
available are deficient for various reasons. Soecifically, 
most text editors are linesoriented, many formatters are 
non-interactive, and few editors and formnatters are 
integrated into a sinaqle system. For these reasons, the 
design of a “better” text orocessina system was undertaken 
to demonstrate the feasibility and utility of such a 
comorehensive system. Toward this end, a survey of the 
current staterofetherart in text orocesstng was carried 
out. Based on this research, the design of a “better” text 
processina system is oresented. 

This system 1S an interactive, tntearated, screen= 
oriented, contextroriented text processina system 
Gonsisting of both 4 text editor and formatter. ft..10s 
designed to ve easvyetor-learn, easv-toruses, e@asy=torzenhance, 
and easv-tozmaintain. Intended system users are non 
computer scientistSs e.d- SecretariesSs, business executives, 
engineers, students, etter, who may or may not have 
proaramming experience. This svsten has heen designed to 
aid in the preparation of documents and/or orograms. The 
System has been imolemented on existing Naval Postgraduate 


School (NPS) hardware using available software. 





Four features characterize this system. First, it is 
fully integrated in that the text editor and formatter are 
not seoarate entities but comolementary oarts of a single 
proaram. Secondly, this system is interactive and provides 
the user with immediate feedback. Thirds, it is screen or 
disolay-oriented. A visual disolayr on a cathode ray tube 
(CRT )-equioned terminal, serves to orovide both the editing 
and formattina feedback. The screensorientation elininates 
the need for many hardcopy orintouts as the screen 
depiction is exactly how the finals finished oroduct wil] 
appear. Finally, manioulatiOn of the text through the 
screen window for oerusal and modification is context= 


oriented. 


B. TEXT EDITOR DEFINITION 

Although the term “text editor" is widely used, it 15 
necessary to clearly define its meaning here. Tn general, 
an editor is an interactive comouter program that allows 
the user to create and modify a text file. This file is 
simoly a seauence of character data. An editor is used to 
write documents such as term oaners, theses, letters, etcCe, 
and oroarans. The text editor oerforms the following 
tasks: 

- provides access to the text stream from both file 

storage and terminal inout, 
- adds text to the text file, 


- distinguishes between words and soaces to solit 





and build lines of texte, and 
- alters the tert at a aiven location based on 


user specifications. 


Text editors are widely used hecause corrections and 
modifications to the text file are easily made as opposed 
to re-entering a comnplete uodated version of the text. 

Most editors orovide functions to insert, celeter, copy, 
mover scan and substitute text within the text file. A 
text editor also provides facilities to manipulate the text 
file so that it may be created, destroved, saved or 
uodated. Disolavyina and/or printing out tne text 18 easily 
accomolished. In additions the user 1s able to locate a 
particular locations anywhere in the filer, in several 
different ways. The user can scan through the dispolaved 
text by movina the cursore by requesting the disolay of 
specified lines or by initiating a context search in which 
the editor attempts to natch a specified sequence or 
pattern of characters. 

There are two distinct types of text editors that 
impact upon this oroject. The first category is lines 
oriented and the second is contextroriented. These 
Categories are described in the following paragraphs. 

1. Line-Oriented Editors 

Linesoriented editors are those in which the text 15s 


logically divided into lines. N line 18 a Cnaracter 


- 
— 7 





sequence that 1s delimited within the file by a soecial 
line marker at its beainning or end. Lines should not be 
confused with sentences. This type of editor is 
distinguished by the assianment of either a permanent or a 
relative line number to each and every line of text. These 
line numbers serve as user reference points. Editor 
commands include line numbers to indicate where the desired 
action 18 to occur. The major advantage of lineroriented 
editors is their ability to be used on both CRT and 
hardcopy terminals and their tolerance of a slow 
communication rate. In additions many secretaries and 
typists feel that a ohysical line is the most logical and 
reasonable entity to maninulate while editing. Two other 
factors that sell lineroriented editors are the disruption 
of touch-typing habits on key-defined function editors and 
the comoletely context-free ooeration of character-oriented 
editors. 

eC. Context-Oriented Foditors 

Contextroriented editors are so termed because there 

are no associated line numbers for reference ourposes. 
Instead the text file 1s referenced relative to the 
existing text by socecifyving a particular marker or sequence 
of characters in a context search, or by the use of 
absolute xey addressing if available on the CRIT terminal. 
These files are usually divided into paaes which may or may 


not be further broken down into lines. Context editors are 


10 


not generally imolemented on hardcooy terminals or CRT 
terminals with a low baud rate because too much time 
elaoses while the oage of text is printed out or displayed. 
CeyeTeExTSEOR MATTER DEFINITION 

A text formatter or orocessor is a computer program 
which allows the user to manioulate the text file to 
produce a soecified outout format. Formatters are used in 
document orenaration. The orocessor keeps track of the 
page format as defined bv the page marginsr number of lines 
per pages, and line svpacina specifications which are all 
subject to chanae. Tt orovides page numberina, 
indentation, headinas and footerss and an underlining 
capabilitv. A tynical) text formatrers ‘Se fr 10), 


performs the following tasks: 


- accesses the text file from storaae, 

- distinguishes between format commands and text, 

- provides reasonable and general default format 
soecifications,s 

- redefines the format specifications as directed 
by the user, 

- solits and concatenates lines of the original 
text file to oroduce lines conforming to the 
outout specifications, 

- fills text by putina as many words as possible 


within a line, 


ie 





- outputs blank lines or skios lines, 

- provides for page ejects or skins to the topo of 
a New page, 

- outouts irregular, non-filled lines of text, 
e.g. ritles, when directed by the user, and 

- allows the line to he centered, rightejustified 


(aligned along the right margin), or underlined. 


Text formatters allow drastic format changes to be 
accomnlished by the user to improve the document's final 
aopearance and thus its readability. 

Manv text processors adjust the lines of text whicn 
means the line is both filled and right-justified by 
inserting extra blanks within the line. Sonohisticated 
formattersr in addition to the oreviously mentioned 
features, may provide soelling checks, hyphenation, 
footnote oroduction and aeneration of a table of contents 
or indices. Text orocessors tmav or may not be interactive, 
Non-interactive formatters require the user to visualize 
the effect of the fornat command and later verify the 
desired result by orinting out a hardcooy listing of the 
document. Interactive formatters do not reauire this 
mental transformation and verification orocess by the user 
because the command result is immediately aoparent. 

Before oroceedina on to the survey of text orocessing, 


it is aoorooriate to define a text orocessing capability. 


le 





Systems possessina a text orocessing caoability are able to 
oerform the previously mentioned tasks of both an editor 
and formatter. For the ourooses of this thesis, word 


orocessina and text orocessing are Synonymous. 


ie) 





Il. TEX PROCESSING ‘SURVEY 


The initial steo in this thesis was to survey the 
current state-of-the-art in text processing. In this 
Survey, the commercial marketolace was reviewed, In 
addition, ten existina NPS text editors and processors were 
observed. The survey goal was to determine the most 


desirable features of a text processing system. 


fo COMMERCIAL FEXT. PROCESSING 

Although text orocessing has been around since the 
mid=sixties at academic and research institutions, it was 
not until the mid-=seventies that it became commercially 
attractive. The technolonaical advances of the early and 
mid=seventies brought about a raonid decrease in both 
comouter size and orice. These factors made them very 
attractive to oerform a variety of tasks, particularly text 
processinar, in an automated office. FORTUNE'S "Trends in 
Computingo=--Apolications for the 80's” [29}, describes 
automation's imoact in this manners “In the white collar 
factory, the office, the comouter and its nicroorocessor- 
basea offsoring are inciting a revolution of epic 
proovortions with word and text processing..." Comouter 
vendors of both hardware and software are scrambling to 
establish themselves in the emergina office automation 


market. The followina examoles of this scramble were cited 


14 





in the FORTUNE article [20]. Data General nas added text 
Preocessima to the commercis! caoahilitives of its Eclipse 
Comouters. Wang has aiven all of its VS computers a text 
processing capahbility throuah "mailword". Germany's 
Nixdorf disclosed a second aeneration of distributed data 
systems that oerform text orocessing, batch and interactive 
communications, data entrve and local file and data base 
processina. PDunn, in COMPUTER DECISIONS [4], provides tnis 
estimate of the size of the text orocessing market, 
"Revenues from word orocessina have jumoed from $936 
myliton iy 1977 to S165 oF llion if 1978 when 1207000 unirrs 
were acauired, and are porojected to reach 600,000 units, 
geoseina 6 billions in 1963." 

Two factors causina nanagement's acauisition of text 
processina facilities are the secretarial shortage and the 
low productivity of white collar and clerical employees. 
Dunne in “The ‘Office of the Future Part if” (Sl, details 
the secretarial oroblem tn this way, “seclast year [1978) 
60,0090 secretarial jobs went unfilled, though salaries are 
rising more than 10% a vear. By the mid=-1980's the 
secretarial shortfall could reach the quarter of a million 
mark." Wilds, in "The Smart Way to Pick Word Processors" 
[24], provides an example of the oroductivity impact of 
text orocess- ing. A tyoical oroductivity increase 
occurred at J. C. Penny Coe where the installation of text 


processina equioment cut turnaround time on typed documents 
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from "as lonq as a week" to an average of "next day". 
There are two orincioal oroducts sold by text- 
processing vendors. Stand-alone text processors with price 
tags of $6,909 to $12,000 each are the most popular. An 
alternative, the pourchase of a word-processing vackage for 
CPU's, makes text processing another data processina 
application. These nackanes cover a considerable price 
ranae uo to $75,090. Indenoendent supoliers, rather than 
comouter manufacturers, Orovide most of this software. A 
representative samolinga of text processing software 
packages, derived fron the January 1980 issue of COMPUTER 


DECISIONS [19], packages would include tke following: 


- WORD=-ONEe-used with IBM 360/40 or abover 370/ 
135 or above, 4300 series, National and 
Amdahl systems; sold hy Bowne Information 
Systems for $65,000; 

- AZ=-TEXT="used with Data General's Advanced 
Noeratina System and Ecliose Systems sold by 
Data General Corooration for $4,000; 

- Dataooint Word Processina=sused with Datapoint 
3300, 1800 and 1500 series processors? sold by 
Datapoint Corooration for 4750; 

- Word-li--used with DEC RSTS/E timesharina 
executive; sold by Data Processina Desian, Inc. 


for 7 o.50-0-. 
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There are many text orocessing systems available for 
microcomouters. The followina oackages are a few of those 
availaole for INTFL-based 8080 and 7-80 microcomputers. 
Small Business Anolications, Inc. markets Magic Wand at 
$400. The Software Store has MWP (Mini Word Processing 
System) for $195. The TRS=80 Microorocessor can uSe either 
The Electric Pencil, for F190 or $150, or Scripset, for 369 
or $99. These software packages can be economically 
integrated into existinga systems without the purchase of 
special hardware. 

As oreviously nentioneds, stand-alone or dedicated 
Svstems are the most nooular. The vendors of these systens 
market a conplete hardware/software packaae consistina of a 
workstation and the suoovort software. These systens 
usually have specialized terminals. "Clustered, or shared 
resourcer word processing svstems (which rely on minis and 
micros) are the fastest arowina word processing segnent”" 
accordinma to FUSTUNE (20). CPT+s Lamier, 48% Jacauards Wane 
and Xerox are only a few of the vendors marketing these 


B. COMMERCTAL TRENNS 

Several interesting developments are occuring in text 
_processina. First, CRIedisolays are inheriting the narket 
from nondisplay systems. Text orocessors that use hardcopy 
terminals exclusively are neing recognized as less 


Droductive and less attractive. Ailso,r significant price 


V7 





decreases make disolay systems more attractive. Second, 
there 1S a trend toward resource sharina and joint text 
processing and data orocessina. In this area, AXXA 
Corooration tackles executive and secretarial productivity 
with its new dual workstations supporting text orocessing, 
electronic nail, calculations data orocessing and file 
access. Xerox Office Products announced the 860 Advanced 
workstation that performs text orocessing, system book-= 
keeping and data processina. Finally, the new systems are 
multifunctional. Text orocessing is intearated with 
telecommunications, facsimile transmission, numeric 
processing, electronic mailings data entry and accesses and 
other functions such as sé@arch/sorts filings statistics 


generations, etc. L205 753) 


Ce SEXISTING NPS TEXT EDITORS ANDO FORVSI TERS 

To evaluate the current state-ofetne=art on camous» a 
review of ten editors, formatters or word processina 
systems was undertaken. These systems were either used by 
the author or observed in use. User's Manuals and other 
system documentation were reviewed. The followina systems 


were examined: 


(1) CRT Text Editor NED; 1o7 7s used on the 
POP-11/70, [213 
(2) AMOS/2 Editor, 1972, used on the AGT=10, 


[ol; 


es 





(3) EDT Fditor, 19774 used on the PDP=-11/50, {7}; 

(4) Interactive Display Editor Vi, 1979, used on 
the PDP-117/50, lish: 

(5S) NROFF text processor, 1974, used on the 
POP=11/50, (1613 

(6) TED editor, 1978, used on the 8080 and Z-80, 
(21); 

(7) PRO formatter, 1978, used on the 8080 and 
7=A0;5 (el); 

(8) UCSD PASCAL Screen-Oriented Editor, 1978, 
used on the 8080 and Z=80, [22)5 

(9) UNTX Text Editor Ed, 1975, used on the 
POP=11750,5 tes)? and 

(10) WPS-A Word Processina System, 1978, used on 


the POP-A, Leo! s 


These systems covered the entire spectrum of text 
editors and formatters from the simole, relatively 
unsophisticated, aqeneral=nurpose models to complex, 
sophisticated, specialized systems. They also orovided a 
fairly reoresentative historical develooment of text 
processina systemser from the nonwinteractive, linesoriented 
NEOFF formatter (1974) te Che interactive, disosy=-cerirented, 
context editor Vi C1980), and the integrated, interactive, 
screen=oriented context WPS=-8 Word Processing Systen 


C1978). 
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Of the ten systems examined, the WPS=8 was the only 
stand-alone text orocessing system. The other systems were 
run on generalwourovose computer systems. Terminal 
characteristics varied considerably among the reviewed 
systems. EM, NED, NROFF and WPS=8 utilize special araphics 
terminals. NF&D and WPS-8 require svecial function keys. 
UNIX's Ed and Vi, PRO, TED, and UCSD's editor, can be used 
on a wide ranqe of terninals, both intelligent and dumo, 
disolay or hardcooy. AMVOS/2 uses a teletyoe. 

Of the editors surveyed, AMOS/2, EDT. UNIX'sS Ed, and 
TED were line-oriented. The contextrtoriented editors were 
NEO, Vizws UCSD*s editor «and tte wPS=-8. NED and UCSD's 
editor performed some formatting functions such as margin 
setting, fillina, centering, right justification, etc. Vi 
and wPS-8 had the most extensive command sets. The command 
vocabulary was, unfortunately, so extensive that the user 
had to frequently refer to system documentation for helo. 
Some of the commands were very similar lookina but 
oerformed widely different functions. The special function 
keys on the NED and WPS-8 terminals facilitated the editing 
Dreocess. Editor commands were generally one character 
followed by line numbers where apporooriate. Many commands 
were mnemonically indicative of the action performed. 
Cursor positianina was used on the contextroriented 
editors. NED allowed the editing of more than one file at 


the same time, as did UNIX's Ed. An additional feature 
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provided by NED was the capability to divide the screen up 
into as many as ten comoletely seoarate and independent 
edit areas. 

Of the formatters surveyed, PRO and NPOFF were 
non-interactive white wPS=-8 was interactive. PRO is used 
as a post-processor for files edited with TED, and orovides 
many formatting features includina footnoting. NROFF and 
WPS=-8 provide almost any formatting feature ever thouant 
of. Commands were renerallvy two letters in all three 
systems and frequently had numeric arguments. NRCFF and 
TED are sometimes time-consuming to use because of their 
non-interactive nature and the user's failure to correctly 


visualize command results. 


Oy “CONCLUSIONS 

This chaoter has orovided a brief Survev of the 
state-of-the-art in text processing. The evolution of text 
processina over the last ten or so vears has heen traced. 
Nonwinteractive, hardcony svstens have been replaced with 
interactive, softcony or CRTI-enased systems. Line- 
orientation has been reolaced by contextrorientation. In 
the oast, editors and formatters were separate systems but 
now thev are fully inteqrated into a comprehensive text 
processina system. Special hardware, terminals and micro- 
and miniw=based stand-alone sytemnss, have been developed and 
are quite common. Not only do the text processina systems 


of today oerform editina and formatting duties but they are 


a1 





also canmahle of performing a wide range of other functions, 
such as system bookkeeping and data processing. Multie 
functional text processing has become an intearal part of 


today's automated office. 





Ill. DESIGN METHOROLOUGY 


A, PRODUCT DEFINITION 

Before any desian could be contemolated, the final 
product had to he envisioned and defined from a user's 
point of view. The product of this effort is an 
integrated, interactive, screenworiented text processing 
system. SCNPE, Screen-Oriented Processor and Editor, 
performs the previously defined functions of both a text 
editor and formatter. It 1S tmolemented on the existing 
PDP-11 mainframe, using existing terminals and software. 
SCOPE 18 general-purpose and is not intended to perform 
Geeohics or uncommon formatting functionss esa. the 
generation of two columns of text necessary for some 
publications. Thesis prenaration was a consideration in 
the selection of desired formatting features. 

From the ten NPS systems reviewed, the followina were 
chosen as models for this thesis: 

(1) the Vi Interactive Display Editor, 

(2) the UCSD PASCAL Screen=Uriented Editor, 

(3) the text editor TED, and 

(4) the text processor PRO. 
In additions a UCSD PASCAL Formatter, written by the 


author, served as a model. 


ae 





The goalss the desian and the development process of 


SCOPE will he discussed in the remainder of this chaoter. 


Bee UESTG" GOALS 

Further research was undertaken to determine the 
elements of a gqnod desian. The followina paragraphs detail 
design aoals, set for other desiaqn and imolementation 
orojectss that were anpolicable to this system. These 
references, "Overview of the Functional Features and 
Software Desian for a Display Word Processor" (14); 
Kerniahan and Plauaher's chapters on editina and formatting 
(1513 "Text Handlina in an Automated Office" [17)3 and 
"Develooment of an Fxoerimental Disolay word Processor for 
Office Aonlications" {18])% served as the basic source 
documents. 

In SOFTWARE TOOLS (15), Kerniahan and Plaugher discuss 
editing and formartina desian factors. The following 
DOINtS were made in their discussion. Human enaineering 
(the analysis of man's habits and work natterns in the 
attempt to ootimize the man-machine interface) consicer=- 
ations are identified as the orimaryv desian factor. For 
this reasons, an interactive system has streamlined and 
terse communications with the user and is easy-to-use. 
Experienced users were found to prefer concise commands so 
brevity and mnemonic value are counterbalanced. They 
recommend that most formattina occur automatically. Error 


recoverv is identified as the second major desian factor 
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and briefly descripned. The system cannot quit when a user 
enters an erroneous command but must recover qracefully. 
Valuable information must be protected from loss due to 
user error. Reliabdility is identified as another important 
factor. Alsos tne desian must be well-oraanized because of 
the size of the proqram. A flexible desian is desired to 
allow for enhancements of more advanced features. 
"Development of an Experimental Display Word Processor 
for Office Apo] ications” (18) furnished the following 
desian information. This software desian was heavily 
influenced by considerations of response, ease-ofeuse and 
extensibility. A key objective in the desian was to 
emulate the typewriter in order that the user could 
instantly and accurately be shown the status of the 
document being edited or formatted. Minimization of 
operator fatigue was considered ton be an important factor. 
Disolays were used to simolify the user's job and the ‘soft 
copyv' eliminated the slugaish resnonse of a hardcnoyv 
terminal. Unlike 'blind' systems where the operator must 
keeDd a mental imaae of the desired fininished output and 
maintain knowledge of the location of material in order to 
edit or format, this display=based system performed these 
actitvitrves for the operator. the results of keynoard 
editing and formatting actions were instantaneously 
disolayed. The keyboard and the soft copy orovided by the 


disolay served as the primary interface for user/system 
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dialoque. User error was reduced by differentiating 
between text and command inout. Aithouah the command 
repertoire was extensive, users were found to rely upon 
only a few hasic commands. 

In addition to the factors mentioned in the previous 
paragraph, "Overview of the Functional Features ana 
Software Desian for a Display word Processor" (14) 
discussed further efforts made to aid the user. Informa- 
tion on the CRI requiring operator interaction was 
disolayed using menus. A message arear “Status and alarm 
area", was used to display messages to the user which 
indicated the current command, system status and error 
conditions. The HELP disolay provided information 
pertaining to the user's current stater e.g. current valid 
commands. 

"Text Handlina in an Automated Of fice” (17) exoressed 
the design views found in the following paragraohs. The 
design aims in this project were to acnieve a good human 
interface and an efficient implementation. A good human 
interface neant that the system was easy*toruse ana 
easystozlearn and could be basically described as 'frienaly 
and foraiving'. An efficient implementation meant that the 
provided services were adaptable (easily modified or 
expanded), many concurrent users could be supoorted and 
machine resources were utilized efficiently. Emphasis was 


placed upon streamlining the human itnterface,y making 
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services adaptable to changina reauirements and utilizing 
comouter resources efficiently. 

Features that enhanced the human interface were a 
unified conmand structurer a message area and a uniform 
mechanism to store and display text. A good human 
interface was achieved when actions common to different 
services were initiated by the same commangse Full-word 
wraoaround and rudimentary text formatting, such as default 
margin settinass double spacing, etce.r to make the tert 
more readapnle, were orovided during text insertion to 
imorove the human interface. Full-word wraoaround 
automatically forces a word which would extend into the 
right marain to be moved to the next line down. The 
message area was set asiae for command entry, 1.e. to 
disolay and edit commands durina their compositions error 
messaqess machine statuss etc. It was orotected, 1.e. no 
user services could be invoked in it. fhe cursor served as 
the pointer to the text being edited. Commands for moving 
the cursor and pvositionina the text window, 1.e. the block 
of text currently disolayed in the screen, were uniform 
across all services. 

Efficient utilization of computer resources was 
obtained by storing as little information about the screen 
as possible, avoiding duplication of code and minimizing 
the communication oetween screen and the computer. This 


system avoided duplication of executable code by unifying 
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the various constructs, operations and data structures 
common to a number of services and imolemented them as a 
common cool of subroutines. In addition, each service had 
its Own special purnose routines. This design strateay 
made code nore compactr but also--even more importantly=--= 
made the the system more adaptable. Existing services 
could be modified by adding new snecial puroose routines or 
by enhancina the common routines. The same commands in 
each service performed a common action making the user's 
job much easier. 

Based on these ooservationsr, the following desian goals 
for the SCOPE system were set to achieve a friendly, 


fordqiving and easy-to-use systen: 


le to wtilize the disolayvy or screen-as the 
editing and formattina vehicle, 

eC. to provide extensive error=checking and 
Graceful error recovery, 

3. to develoo a uniform command structure of 
brief mnemonic commands, 

a, to incorporate a disolav message area for 
syvstemmuser Communications, 

5. to assist the user through the presentation of 
menus and a current command status displav, 


O. to develon a reliable oroaram, 
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7. to facilitate program adapotability and 
maintainability, 

8. to utilize computer resources efficiently, 
and 1n addition, 

9. to provide hardware independence in the use of 
printers and terminals, i.e. to snecifically 
eliminate the requirement for specialized 


hardware. 


The overall SCOPE design is simole and straightforward. 
Program reliability and maintainability were much more 
important than the considerations of speed and storage. 
This does not means however, that processor and storage 
resources were inefficiently utilized. Tradeoff decisions 
durina the desian process were made in line with the 
following list of priorities, in order of importance; 
ease-of-use, Drogram reliability, proaram maintainability 


and finally efficient utilization of machine resources. 


Ce « THE DESTEN PROCESS 

The design process proceeded in phases. It was 
iterative and incremental in nature. The initial phase 
dealt with the consideration of terminal characteristics. 
Phase Two defined the overall system structure and 
capabilities. Subsequent phases dealt witn the definition 
of new features and sometimes with the redefinition and 


enhancement of existing ones. 
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es Terminal Characteristics 

The first step in realizing the desired product was 
the consideration and selection of a ninimum set of 
terminal characteristics necessary for a 
screen-orientation. Only CRI -eauioped terminals were 
considered for this reason. Spoeciticallys two dumb 
terminals, the ADM=3A [1] and the DY-1520 [8], were studied 
because they were used in the implementation. In addition, 
the DM-2500 (9} was considered to add a greater vegree of 
generalization and hardware indevendence. Ideallyr the 
terminal used would have an extensive keyboard with many 
special function keys, e.qa. delete, insert, etcer, and a CRI 
screen large enough to disolay a full oage of outnmut text 
at one time. This system, however, 1S not intended to run 
on the ideal terminal but on a large numoer of widely 
available dumb and intelligent terminals. 

To achieve the oreviously mentioned aesign 1a03aI1s of 
generality and hardware independence, the terminal 
Characteristics chosen for inclusion in the minimum 
required set are oresent on most dumb terminals. The 
following terminal characteristics are necessary for 


successful imolementation of this project? 


as standard ASCII character set (uoper and lower 


case, numerals and ounctuation marks), 
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De nondestructive cursor movement in four 
Girections (um, downs, right and left), 

ce CPT screen dimensions that allow the dispolav 
of 12 or more lines with 60 or more characters 
per line, 

Ge. communication rate of at least 1200 baud, 

ee. hardware scrolling feature (cursor movement 
past the bottom line on the screen causes all 
all the ahove lines to move up one line), 

f4 absolute x-y addressing, 

Qe clear screen, 

Ais Carriage return, 

1. bel used to alert user when an error is 
encountered), and 


4+. control code aeneration. 


Uoon entry into the system, the user will indicate 
which terminal tyre is being used. The system will then 
make the necessary ASCII code assignments to variables 
nolding the codes for such display functions as clearing 
the screen or movina the cursor none-destructively to tne 
Gt Da a In addition, the user will indicate the printer 
type to be used for the generation of hardcopy outocut. 

e, “SUOPE Features 
The next ohase in the design process was spent 


defining tne features or candabilities to be included in 


BS 
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SCOPE. The text processing systems reviewed in section 
11.0. were the sources for the chosen features. Each major 
feature 18 listed and briefly described in this section, 
For purooses of clarity, the features to be included in the 
SCOPE design are arouped into six categories. 
ae File-Handling 

SCOPE needed to be able to create new files, 
save files and access previously saved files. A hardcooy 
printout of the processed document should oe readily 
available and may or may not be produced directly on tne 
printer. A listing file may be created and sent directly 
to the orinter or saved in storage for multiple hardcopy 
production at the user's discretion. SCOPE generated files 
are incompatible with other UNIX editors and formatters due 
to embedded format commands. For this reason, SCOPE should 
allow the user to out files together tn various ways within 
the buffer and to write out partial ouffer contents as a 
file. Any SCOPE file may be added at any location within 
the buffer as lona as there 1S enough space ir the buffer. 
In additions any seament of text in the buffer may be 
copied out and saved as another separate SCOPE file. Tnese 
two features should facilitate the "cut and paste" aspects 
of document reorganization. 

be. Screen~Orientation 
SCOPE should be a screensoriented or 


disolaysbased system. The screen will orovide the user 
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with a ‘soft copy' of the finished document. The visual 
display will serve as the editing and formattina vehicle. 
The user should be made immediately aware of the results of 
any editing or formatting commands. No guesswork should he 
involved. A screenrorientation should take advantage of 
the visual nature of the editina and formatting process. 

Cursor positionina will] determine the text 
disolayed to the user in the text window on the screen and 
will o1nooint the location of most command actions. A 
reasonably fast system response 1S required to maintain the 
correspondence hetween the user's commands and the cursor 
movement. A slow resoonse,s, typical of a busy timesharing 
system, disrunts this correspondence so that user entries 
appear to ve ignored by the system thereoy confusina the 
user and causina him to introduce errors hy duplicating 
entries and receive unwanted results. 

Cursor movement should occur in one of four 
directions at a time, right and down for forward movement, 
and left and uo for backward movement through the text. 
Movement of the cursor should proceed a character at a time 
or a line at a time. Wraparound from the end of a line to 
the beginning of the next when qoing forwards, or from the 
beginning of a line to the end of the orevious one when 
going backward should be orovided. A carriage return 
should place the user at the first character of the next 


line down. Other commands should be available to speed 
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movement through the text by scrolling through the text a 
screenful of lines at a time or a oage of lines at a time, 
where a page reflects the hardcopy paae length. Context 
should be maintained during ravid movement through the file 
by overlaoping or repeating a few lines from the last 
screen disolay of text when scrolling a screen at a time. 
No overlanm need occur when dDaaing through the text. In 
addition, the user should be able to jump to the beginning 
or end of the file upon commana. 

Ce. System=User Communications 

SCOPE should be an interactive text processing 
system. The screen should be the orimary interface for 
System/user dialoque. Being interactive, svstem response 
time will be a major determining factor in SCOPE's success. 

The user will] require instantaneous echoing of his input 
for verification ourposes and should be able to make 
correc= tions by erasing input characters. Svstemwuser 
communications are not ninimized in this desian because 
many SCOPE soerators will be casual users. Such users will 
not want to soend a lot of time relearnina the system. 

A messaae area will] be a specially defined-area 
on the screen for the inout and display of user commands, 
the disolay of error messages, the display of current 
command status, ieee. which commands are currently available 
to the userr and the display of orompts and menus. This 


messaae area should be orotected from other system features 
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except in the case of the terminal's hardware scrolling. 
The user should be coached during a SCOPE session through 
the use of menus describing the available ootions and 
prompts describing the command action and how it is 
initiated. 

There should he a uniform command structure of 
short mnemonic commands. The same command should cause the 
same action across the orovided services, e.ge a 'Q' wil] 
allow the uSer to exit or quit any service. A relatively 
small set of oowerful commands should be available. Text 
input and command input should be differentiated for the 
user. It 1S important to keeo the user informed of 
Processing actions not apoarent to him, e.ge writing of a 
filer, by signalina their successful or unsuccessful 
comoletion. Systen messages to the user should be 
conversational in tone and understandable. A Cryotic 
messaqe only serves to confuse and alienate the user and to 
yatroaguce error. 

d. Error Handlina and Recovery 

SCOPE should attempt to prevent user error as 
much aS possible by oroviding extensive error-checking. As 
mentioned previouslys, slow response time will increase user 
input error as typoaraphic errors become more frequent. 
User command and text input should be carefully screened to 
recognize invalid commands or nontext characters as soon as 


possible. However, since al) user errors cannot be 
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anticipated, the desian of the system should attempt to 
minimize the impact of those that do occur. In general, 
error handling should consist of providina the user with a 
descriontive error messaner forcina active user recoanition 
of the error condition and finally re-prompting to provide 
information about valid command options available. Graceo- 
fulerror recovery should oe attempted and accomplished 
except in the case of a catastrophic error occuring to the 
base system. The user should be protected from the loss of 
text by requiring positive confirmation of its deletion or 
the provision of backup files. 
Q@. “LECiting 

SCOPE should provide editing features to 
facilitate the composition of documents and proarams. 
These editing features may be invoked durina initial 
creation or after creation and storage. During the editing 
session, the user should be able to move the cursor or 
issue scrolling commands for forward and backward movement 
through the text to pinoornt the location of the edit 
action. A standard/ default set of formattina 
specifications should be in effect unless the user sets 
Other specifications. The followina list of specific 
features should be available through the SCOPE editor. 

- Insert-=-shoulad allow the user to add text to 
the buffer before the character at the cursor. Input text 


should be screened for invaliga entries and disolayed on 
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the screen. The user should be abe to erase jinout 
characters. If the text is being filled, automatic 
full-word wradaround should be provided at the end of the 
line. User acceptance or rejection should determine 
whether the added text remains in the buffer. The user 
should be orotected from buffer overflow. 

- Delete=-should allow the user to remove 
text from the buffer. <A character or an entire line may be 
deleted at a time. Cursor movement should indicate where 
the deletion occurs. Up ofr down movement should delete a 
line, while right or left movement deletes a character. 
The direction of deletions forward or backward, should be 
consistent during the deletion onrocess. Contradictory 
cursor movement should cause the last deleteag line or 
character to he restored to the screen and in effect negate 
the deletion process. Actual removal/deletion of the text 
should only occur within the ouffer upon positive user 
eonfirmation. Until this confirmations the text will omy 
"appear" to oe deleted on the screen. 

- Locate--“should allow the user to pinooint 
the firest location of a specitrea pettern or string of 
characters if it oceurs within the text. Thais alobal 
search should begin at the current cursor position and 
proceed in a forward direction. Only a successful search 
will reset the cursor oosition to the beginning of the 


Plocated “oattern. In the event of an unsuccessful search, 
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the cursor and the text window remain unchanged. 

- Reolace--should allow the user to substitute 
one string of characters for another reaardless of their 
respective lengths at every occurrence of the target within 
the remainder of the text. This global substitution should 
begin at the current cursor position and oroceed in a 
forward direction only. The user should be protected from 
buffer overflow. 

- Exchanne--should allow the user to 
substitute one string of characters for another of the same 
length at the current cursor position. AS the cursor moves 
forward the user inout character will overwrite the 
existina buffer contents. 

- Copy--should allow the user to duplicate 
parts of text within the buffer. The user should be able 
to delimit the material to be duplicated and oosition the 
cursor at its new location. Copied text snould pe placed 
in front of the character at the cursor. the wser 1s 
protected from huffer overflow. 

- Mover-should allow the user to reposition a 
segment of text within the buffer. The user should be able 
to delimit the text to be moved and position the cursor at 
its new location. The delimited text should be placed in 
‘ront of the cnraracter at the cursors 

- Extract--should allow the user to write out 


a portion of the text to another SCOPE file. The user will 
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delimit the body of text to be cooied to another file and 
then initiate the process. The original text should remain 
umaffected in the vouffer. 

= Add--should allow the user to add another 
SCOPE file to the contents of the buffer. The cursor 
position will indicate the vosition of the addition. The 
new text 1s placed before the character at the cursor. The 
user should be protected from buffer overflow. 

tf.) Formattina 

SCOPE should provide formatting features to 
improve the final document or proaram's apoearance and 
thereby increase its readabilitv. The formatting features 
in the desiqn were orincipally determined by the 
requirements of thesis Dreparation. During the fornatting 
sessions, the cursor should mark the position of the 
formatting action. Formatting specifications may be set 
before text creation and can be modified at any time. The 
formatting specifica- tions should he in effect from their 
imitial settino/entry ocormnt unt’! changed ofr nul ii fied. 
Most formatting will be provided automatically on the basis 
of a standard/default set of specifications derived from 
the NPS Thesis Manual. The following list of specific 
features should be available through the SCOPE formatter. 

- Margin Setting=~shoula allow the user to set 
or chanae the left, rights paraaraph, toor bottom and page 


marains at any time. 
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- Page Length--should allow the user to set or 
change the number of lines that can be written to the 
hardcopy output. 

- Line Spacing--should allow the user to set 
or change the soace between lines of text. Sinale, double 
and triple spacina should be proviged. 

- Skip Lines--should allow the user to add 
extra spacing between lines by skipning a specified number 
of lines or writing a snecified number of blank lines. 

- Paae Numbering=-should allow the user to 
number or not number the pages of text. The user should 
also be able to increment the page number on a specific 
page. 

- Paae Eject--should allow the user to end a 
page at will and skip to the top of a new page. 

- Fill==should allow the user to put as many 
words as oossible on a line of text and will be the default 
mode. Filling should not apolv to trregular lines such as 
titles or running headers ang footers. 

- No Fill*-should allow the user to place 
particular words on a line and create irreqular lines of 
text. 

- Centern-"should allow the user to center a 
line of text. 

- Riaht Justifye*should allow the user to 


alian.a line of text along the riaqht margin. 
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~ Underline--should allow the user to 
underline characters within the text. Punctuation marks 
should not be underlined. 

- Adjust~--should allow the user to generate 
filled text aligned along the right margin. Extra blanks 
will be inserted between words to achieve this result. 

- Indente-should allow the user to indent or 
move the text to the right a specified numoer of spaces. 

- Tab--should allow the user to set tab stops. 

- Table-Handlinae-should allow the user to 
easily construct tables or columns of text using the tab 
key. 

= Tit les=-should allow the user to indicate 
five different types of titles or headers, first through 
fourth-order and other. The system should automatically 
format the first through fourtheorder titles as per the 
thesis manual, while the other tyne 1S centered on a new 
page. Header numbering and lettering should be considered 
for possible tnclusion. 

- Runnina Headers and Footerse=-should allow 
the user to write a specified messaqe across tne too or 
bottom of every oage of the document. The user should also 
be able to specify where within the too and bottom margin 
the header or footer 1s located. 

- Paraaraph/No Paragraph--should allow the 


user to define a new Paraaqraph or return the text to 
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non"paragraon status. 

- Footnote--should allow the user to jinout the 
information to be contained in the footnote which will] then 
be automatically positioned by the system in accordance 


with Thesis Manual directions. 


De TESTING 

Ease of testing was an important desian consideration. 
An incremental aporoach should be generally taken in 
testing. In this method each module is designeds coded ana 
tested by itself and then added to other testeds working 
modules. Incremental testing greatly simolifies debuaging 
by limiting the scope of the errors encountered. It also 
allows the discovery of logic and implementation errors 
early enough to prevent their repetition in other modules 
and thus eliminates the need for major redesians once 
underway. 

Two dedugaing tools were designed to aid the test 
process. One tool was a procedure which displayed the text 
and format commands within the buffer ueon the screen. The 
second was a program which Drovided a listing of the raw 
file. Both of these tools replace the format commands with 
soecial or text characters to allow their disolay/listing 
because the contro! codes themselves are unorintable and 


could generate unwanted results, e.g. a form feed. 
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E. DESIGN APPRAISAL 

Why 1s the SCOPE desiqn "better" than other existina 
systems? A brief comparison of SCOPE and the reviewed 
systems highlights the critical differences. SCUPE's 
Integrated editor and formatter concept is Superior to 
separate editor and formatter packaaes, like TED and PRO or 
Ed and NROFF, because the user performs both editing and 
formatting while executing a single system. Because of its 
interactive nature, SCOPE is easier and faster to use than 
NROFF or PRO. A user can, with SCUPE, chanae a format 
specification and immediately see the results rather than 
having to visualize them. It 18 no lonaqer necessary to 
produce a 11Sfing or ae disolay in a Separate ocrocess for 
verification ourposes. 

SCOPE orovides more extensive formatting features than 
are availaole in NED, Vir or the UCSD PASCAL editor, and 
supports these features with on-line user aids. Tne user 
assistance provided by SCOPE is more comprehensive than 
that of any of the reviewed systems. The conversational 
prompts and error messaqes coach the user throuah the text 
creation process. Tne learning curve for effective system 
utilization 1S sianiticantliy reduced for the casual users, 
who should be ahle to ooerate SCOPE with a minimum of 
external documentation. 

SCOPE's limited and simole, yet powerful, command 


structure 18S desianed to te less confusing to the user than 
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many of the others have proven to be. The mnemonic 
commands are intended to he easier to understand, remember 
and to use than those of earlier systems. 

Finally, unlike NED and wPS=-8, SCOPE does not require a 
special terminal with specialized function keys and/or an 
enlarged CRT screen out can be used on a wide range of dumb 
and intellignt terminals. 

In conclusion, the SCOPE design is a “better” design 
because it attempts to incorporate tne most attractive 
features of the reviewed systems while avoiding the 


limitina asnmects of earlier systems. 
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IV.  TMPLFMENTATION 


This section provides aeneral information about the 
SCOPE svstem. Proaqram details may be obtained from the 
proaram listing (A4ovendix B) orovided. The listing also 
provides system documentation. An inital introduction to 
the system is orovided along with comoilation and execution 
instructions. A list nf aboreviations used throughout the 
proaqram 1s included. Each function/procedure is briefly 
described in the orngram.e. Mnemonic nanesSr modularity, 
straiaqhtforward loaic and code as well as appropriate 
comments facilitate proaram understanding. Each 
function/orocedure is short enough to appear on one oage. 
Indentation and the PASCAL keywords aid in the tracking of 
proaram tlow. Finally, most varrables within the SCOPE 
proaqram are alohal in nature. 

The SCOPE implementation oresented here 1S character- 
ized by its isolation of imolementation details and its 
modularity. The isolation of as much as possible of the 
actual imolementation from the program as a whole is 
recommended by Plauther and Kerniahan (15). This 
recommended technique facilitates the optimization orocess 
or the selection of a new strategy hecause the desired 
result can he obtained by simoly altering low jevel buffer 


management routines. The second attribute of this 
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implementation, its modularity, is recommended by Sharma in 
(171. Modularity makes the provided services more adapt- 
able to changing requirements. There is a common pool of 
general-puroose subroutines that are called by many of the 
services as well as soecial-npuroose routines. 

During the implementation process the UNIX system 
provided two handicaps. The first difficulty was the slow 
resnonse time. UNIX suffers measuradle degradation 
whenever qraphics-related oroarams are executed and/or 
multiole users are on the system. The second difficulty 
had to do with tne soecial terminal conditions under which 
SCOPE operates, which are explained in section D. These 
conditions were a nuisance when tryina to execute commands 
and oroqrams outside of SCOPE. The freauent and necessary 
changes of the terminal conditions were not only 


inconvenient but tended to increase user error. 


A. PPOGRAMMING LANGUAGE SELECTION 

An inoortant consideration in the system imolementation 
effort was the selection of a suitable programmina 
lanauage. A hiaqh level lanquage was sought. Desiraole 
features included structured constructs, flexible and 
extensive data structures, and extensive error-checking and 
diaanostic facilities. In additions the langquaaqe had to he 
able to distinguish between every character itinout at the 
keyhboard--especially control codes which serve as commands. 


Secondary selection criteria were availability 
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(unfortunately the new PL/I compiler by Digital Research 
was not available) and transportability. PASCAL met all of 
the above mentioned criteria and was chosen. Soecifically, 
the Berkeley Version 1.1 (10) PASCAL imonlementation was 
selected because of its attractive run-time ootions. A 
PNP=-11/50 minicomouter under the UNIX timesharing system 


(23) served as the host comouter. 


B. PROGRAM LOGIC AND STRICTUPE 

Software enaineering orincioles [12] were anplied in 
developina the program structure. The toow=down design 
approach was followed. Masaior functions to be performed 
were analyzed and decomposed into smaller, more easily 
managed subdfunctions. Functional modules were desianed to 
be subproarams, 1.@. functions or procedures, and were 
limited to one pvaae. During the analysis and decomoosition 
ohase, SOFTWARE TOOLS [15] and Triyono's thesis (21) 
Orovided invaluable assistance. 

Codina and dehuaqgina were simolified and overall 
proaram clarity improved hy always selecting the simplest 
and most straightforward technique to acconolish any 
"ter iceky” or fSamolex sections. In additions 4 siyagie 
Drompting orocedure and a separate error message orocedure 
were set uo to centralize system communication with the 
user. Finallys tradeoff decisions were made wherepy 
proaram simolicity, reliability and maintainability were 


considered more imoortant than speed, storage or overall 
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efficiency. 


C. DATA STPUCTURES 

The Berkeley version of PASCAL does not provide string 
manipulations and it does not allow the reading of strings 
tcom text files. In addition, it allows onty scalars==* 
intecer, characters, or boolean values=-to he voassed as 
subproqram araquments. Finally, set implementation is such 
that sets may not be declared as constants», nor do sets 
defined to contain character variables assianeda using the 
standard function CHR pvehave correctly. Despite these 
shortcomings, data structure selection was not a difficult 
phase. In order to facilitate chanaes the actual data 
structure is hidaen from hiaher level modules by a low 
level buffer mananqement function desianed only to 
manroulate the data structure. 

within this system there are two princioal data 
structures. The first 1s the “raw” text file as it exists 
in storage when not being acted on. It is a sequence of 
character data. It consists of ‘the text characters and 
format command/characters. Inteaers, realSs bhooleans, 
strinas and unstructured data types may not be included in 
this file. This file contains a beginning and end of text 
character or marker. Within the text, the lines and the 
Oaraaraohs are set off by a line or paragraoh marker 
resvectively. Althouah this line orientation is not 


strictly necessary it does simplify many operations, 
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particularly the maoving from screen to buffer exolained in 
Section IV.G. The additional system overhead in 
maintaining these line markers is a small price to oay for 
the simolification. <A paraaraoh marker, once set by tne 
user does not change its relative position in the text 
unless the user resets/deletes it. A line marker, on the 
other hand, mav be frequently shifted if as many words as 
Possible are heina nlaced in a line, i.e. filled text, or 
text is inserted or deleted before the line marker. Line 
and oaragranh markers occur at the heninnina of a line or a 
paragraoh. 

The format commands, other than markers, embedded 
within the text indicate soecial orocessing that is to 
occur to the raw text before display or production of a 
listing can occur. A format command's range of effect can 
vary from only one character to the entire file. If the 
text file is created usina a non-standard format, the 
characters in the file immediately followina the beninnina 
of text marker are arouoed together and called a "format 
record’. this recora only contains those user format 
soecifications that differ from the standard menu provided. 
It should be noted that the raw file is useless unless the 
embedded format commands are masked out and processed. The 
standard PASCAL (11) orocedures REAN and WRITE and function 
EOF (endeofefile) are used to manipulate data within the 


text file. 
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Space usace was carefully considered. The line and 
paragraoh markers and format commands could add a 
significant amount of overhead to the system by taxing uo 
unnecessary soace that could he used for text. This is not 
the case, however, because most markers and format 
commandss, however, overlay what would be a blank hetween 
words. Extra blanks associated with indentation, 
tabulation and the end of a line can he eliminated or 
comoressed. Within a line two spaces following the 
Punctuation marks; “.%, "s%s *!%, and '?" will not be 
comoressed hecause the mapdinag is simnlified. Two 
procedures PROCFSSBUF and PROCESSRAW eliminate and compress 
extra blanks as well as insure that punctuation requiring 
two spaces is followed bv two snaces where aporopriate. 

The most imoortant data structure within the SCOPE 
System 1s the text buffer. Figure Get ig a diaaram of the 
SCOPE buffer. Text and format commands, such as om, reside 
in this data Structure while underqoing user overations. 
This buffer +s a laro@*.array of characters of approximetely 
30,000 bytes. There are several inteaer pointers indexing 
this .arrav. BUFINDX 3s the current location of onmeratian 
within the buffer. INSBEG and INSEND are pointers which 
delimit the INSFRT AREA within the buffer. BUFLIMIT is the 
last ©Dosition in the arrav. CH 15s always the current 


character at BUFINDY. 
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Movement through the huffer is accomplished via the 
GFTRUFCHAR (Direction) function, exceot in the INSERT mode, 
where Direction is +1 for forward movement, 0 for no 
movements and -1 for backward movement. The text character 
immediately preceding the INSREG location appears on the 
Get sereen at the cursor. Moving forward, 1.6. rights down 
or scrolling down, through the text is oerformed in the 


following manners: 


GFTRUFCHAP( +1) which means that 
BIIFINDX = BRUPINDX + 1; 


INSBEG 3: 


INSREG + te 
[NSEtD 22 IMSEND + 17 
BUFFER IBUPINDX) := BUPFERTINSEND]: 


CH := BUFFER[RUFINDX). 


Movina backward, i.e. left, uo or scrolling up, throuaqh 


the text buffer is oerformed in this manner: 


GETRUFCHAR(=-1) which means that 
BUFFER CINSEND? 3: 2s BUFFER EIRUFINOX) ; 


INSEND ¢ 


INSEND = 13 


GUFINDX : = BUFINDX = 1; 


INSRBEG : INSSEG. = 1; 


CH + = BUFFERIBUF IDX). 
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GETBUFCHAP(0) allows the system to re=-reference the 
current buffer location. All of the buffer pointers remain 
unchanged. GETRUFCHAP cannot be used in the INSERT MODE 
for reasons explained in Section IV.H. 

READR4&N handles the buffer initialization for both new 
and existina files. A file must he read in and initialized 
before EDIT or FORMAT processing. Buffer initialization 
durina the creation of 3 new file involves entering the 
beginning and end of text markers, entering an initial 
paragraoh marker and setting the INSBFEG, INSEND and BUFINDX 
pointers. Remember that the current INSBEG and INSEND are 
empty. Initialization for an existing file is somewhat 
more comolicated. First, the raw text file is read into 
the buffer character hy character where the first character 
goes into the first buffer oositions the second in the 
second position, and so on. After the file is read, the 
text must be shifted. so that the INSERT APES 16 correct iy 
positioned. The last character read in 1S moved to the 
second to the last buffer oosition,s, the oreceding one to 
the third to the last positions, and so on until the 
beginning of text (bot) character 1S reached. It is not 
moved. The pointers, INSREG, INSEND and RUFINDYX are set 
and in this manner the INSERT AREA is defined. This INSERT 
AREA is the key comoonent within the buffer. Text 
insertion, deletion, cooying and movement is accomolished 


ov resettina INSBEG and INSEND. More details of these 
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ooerations may he found in the program listina.e Format 
commanags and line and paraqraodh markers within the buffer 
are totally transnmarent to the user who only sees them 
reflected on the screen. 

Several other arrays are used within this system. The 
running header and footer lines are each stored in an 80 
byte array of characters. Two other arrays, of 20 inteaqers 
each, are used in the TABULATION and ADJUSTLN routines. 

Ihe column numper(s) of the tab location(s) isCare) stored 
in TABLOCNS. Simitarly, the relative location of blanks 

within a buffer line of text are saved in BLKLOCNS. These 
stored values indicate the sites for the insertion of extra 
Dlenks within the text line to achieve riaht justification 


with fi)llina. 


Ds INPUTZOUTPUT HANDLING 

The use of a hiah level lanauaae such as PASCAL 
eliminates the messv details of input/outout (1/0) 
handling. 1/0 to and from the screen is accomplished 
using the standard PASCAL READ and WRITE orocedures on the 
textiites [NPT (revyooard) saad DUTPUT (CRI sereen).. 

Correct SCOPE oneration reauires the settina of certain 
170 ootions on the current terminal. The UNIX command 
"stty raw secho ni” sets the necessary options. RAW means 
that no erase, kill, interrupt are EQT characters are in 
effect and that the poarity bit 1s passed back. NL tells 


the svstem not to autonatically aqenerate a Carriage return 
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and line feeq for a new line and that only a line feed will 
end a line. It also orevents the use of the READLN and 
WRITELN procedures. -ECHO orevents the system from echoina 
back tnout characters to the CRT screen. 

SCOPE filters the inout characters and selectively 
echoes back or writes to the CRT screen, preventing the 
disnlay of unorintable control characters. A typical case 
1S the handling of cursor movement in which the user 
generates right, left, uoward or downward movement of the 
eursor.  INCHAR 46 the charactier fread in from the user. 

in. avdivtron to FESO and WReIte, the PESET and REWRITE 
procedures are used in I/N to and from other fries. INFILE 
and OUTFILE are text files assiaqned snecific names by the 
mser;, @€290. CHAP1.o and LISTING. o. <The *.6" wdicates os 
PASCAL file. RESET 16 wsed to open existina files for 
reading, while REWRITF 18 used to onen and create a new 
fite. IMFILE 1s used im the reading of raw text files and 
OUTFILE in the saving of raw files and the oroduction of 
Vastings. READLN and WRITELN cannot be used on etther of 
these files because the UNIX eoln (Cend-of-line) character 
does not exist in SCOPE aqenerated files. UNIX writes 
OUTFILE in blocks of S12 bytes. The Berkeley PASCAL 
function FLUSH is reauired to dumo the last incomplete 


block of output to the waitina file. 
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The lack of strina maninulations causes all I/O to be 
done a character at a time which 1S Somewhat tedious. 
DISPLAYLN performs the necessary orocessing to display a 
line of text on the CRT screen. LISTLN produces a line of 
text for a hardcony listing. both of these orocedures cal] 
routines which orocess any embedded format commands and 
only portray the "orocessed" text as opposed to the “raw" 
text in the buffer. LUSERINPUT and SUSERINPUT, for lang 
and short user inout from the terminal, perform the READ 


functions They allow the uSer to enter a string of 


Characters with the onotion of erasing any mistakes hy 


tvoina a control e hefore hitting the carriage return. 
LUSERINPUT allows unm to 14 characters to be inout and is 


used in the namina of files. It automatically checks each 


entry for a '.p' in the name and apoends it where 
necessary. SUSFRINPUT allows up to 4 characters to be 
entered at one time. Two procedures are used because 
strinas must he padded with extra blanks to their full 
declared ltenaqth. The slow response timers, due to tiNITXx 
deqradation+« was a oroblerm. Not only is 1 disconcerting 
to be tvoina several words ahead of what is being gisolayed 
on the screen, but immediate error correction becomes 
difficult. It is no lonaer a matter of simoly erasina one 
or two characters that are incorrect. Instead, the user 


miaqht have to erase and lose several words to aqet back to 


the error. In addition, during the erase action when the 
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cursor 1S movina hackwards a delay can cause the user to 
inadvertently erase more than intended. 

Because only character data is read and written by the 
SCOPE system there is no way of directly entering integer 
values for such items as oaae numbers or margin settings. 
To overcome this deficiency, CONVRTNUM transforms a 
character number into its enuivalent integer value. Up to 

\ 
a three digit numnter may be converted. It currently 


handles only nositive values. 


So  IHeE SCOPE SYSTEM 

Imolementation oroceeded in an incremental fashion. 
The initial phase implemented a minimum set of system 
features. The minimum set of features allowed the 
Sroduction Of a simole ocaner hut not of thrs thesis. this 
skeletal system was a barebones aonproach with manv options 
eliminated; e@.«¢d. the basic formatting specifications 
setting unm the oane layout (maraqins, lines oer oane and 
line soacina) were defined as constants. Durina the 
analysis of svstenr features, the hasic system design 
evolved into four nested tevels or nodes. At the highest 
or outermost level, i.e. qlobal mode, the svstem reads or 
writes files, edits, formats or leaves the SCOPE system 
based on the input user commands. The alobal mode (SCOPE 
DRIVER/MAINLINE) is the driver of the entire system. 
Fiaqure 4-2 is a oseudo code representation of the SCOPE 


DRIVER. 
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The second level consists of the following essential 


system features: 


ae read in an existina file or create a new file, 
be. write the raw file out to storaae, 

Ce. edit the text file, 

d's format the text file in a reasonable manner, 
@e- oOoreoare a hardcopoy listina of the file, and 


fic exit from the system. 


Each of the ahove features, except system exits iS a 
major module within SCOPE. Within this level lies the 
third level of modules or subfunctions, e.q. INSERT and 
DELETE for FDIT. At the innermost and lowest level are the 
functions to manioulate the data structures and other 
Support routines, e.g. cursor movement and maooina. Cursor 
movement and manpdina are kev modules which are discussed in 
weerion IV.G. The movement of the cursor on the CRT screen 
must he correctly reflected in movement through the text 
buffer. There must be a one-to-one corresdondence between 
the character at the cursor and this character's location 
within the text buffer. 

Entry to lower levelS, @.a. Subordinate modules, is 
accomolished by calling the required procedure or function. 
Return to a hiaher level is usually accomolished via a 


uw 


"auit™ or “eontro!l a" command. 
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F. COMMAND STRUCTURE 

[It ts important at this point to reiterate the chief 
design aoal of this swstem which is to develoo a friendly 
and foraiving tool. Users will probably not be using this 
system on a daily basis and so will not be intimately 
familiar with commands. Such casual users wil) not utilize 
the syste n 1f a lot of time must be soent learnina and 
relearning the command set. For this reason, it was 
considered impverative to have short, simole, 
eaSsy-to-renember and easSy-tozuse commands, The command set 
is also consistent throughout the different SCOPE modes of 
operation. 

This 18 an interactiver screen-oriented system and 
these features are exploited. Three lines at the top of 
the CRT screen are set aside permanently as a messaqe area 
for the disolay of oromots and error messages and the entry 
of some user commands. Entry and exit from any of the three 
outer SCOPE levels causeS a Dromot to be aenerated in the 
message area. This oOrompt tells the user which commands 
are currently available to hin for execution and how to 
Initiate execution. 

Commands are mnemonic and one character in lengtn. The 
command is usually the first letter of the action to he 
performed. Some commands, e.a. page number, reauire entry 
of a numeric araument. Many commands are dependent upon 


cursor movement. In some instances the contro! key 18 used 
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IN CONjuNction with another character to differentiate 
between a command and a text characters e.g. in the insert 
mode. The EDIT and FORMAT commands are described in more 


Getailt in sections IV.H. IV.tI. 


G. CURSOR MOVEMENT AND MAPPING 

Establishina and maintaining the correct relationship 
between the screen display and buffer was the most 
difficult aspect of the SCOPE imolementation. There has to 
be a one-to-one corresoondence hetween the character shown 
on the screen and its location within the puffer. Format 
commands are transoarent to the user but must be reflected 
on the CRT screen, e.9. 8 Daragranh marker is shown by 
indenting the line. Cursor mapning is carried out by the 
MAPCURSOR function which mrocesses the format command and 
sets up the screen display as necessary. SFETCURSOR is 
another maoning function which comes into play during the 
Scrolling ectivons. 

There are two methods of cursor movement available and 
both are oresented in figure 4-3, Movement within a single 
line is fairly simole but wraooinga around to the orevious 
liners, or jumoina nmultiole lines complicates the picture 
quickly. Cursor movement is simplified by making it a 
line-oriented orocess. STAPTLN and NEWLINE are key 
functions in determining the correct user line location. 
GETCHAR is used to mroduce movement one character to the 


left or right. JMPTOMARKER allows the uSer to jump to the 
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beginning or the end of the currently active file. Further 
detayls about the cursor mapping and movement are available 
in the orogram listina. 

Boo ED ET 

EDIT is orobably the most important module within the 
SCOPE system. It is used to nove the cursor and thus scan 
through the hody of text as well as to make moaifications 
to the text. The ENIT commands are listed in Fiqure 4-4, 
The upoer case letters are used to allow the same veginning 
letter to be Used, e.a@. x for xehanae and xX for Xtract fi lle. 
In addition, the capitals indicate file manipulations where 
the lower-case commands only deal with the buffer. The EDIT 
command modules closely follow the desianr, with the 
exception of SETMARKER which is used by almost all of the 
ether EDIT features to delimit the body of text to be 
searched, copied, noved, extracted, etc. Many of the EDIT 
features remain to be imolemented. 

The initial imolementation involved only INSERT and 
DEEETE. INSEPT adds ext - directly to the outfer through 
the INSERT AREA. Because GETBUFCHAR, the low level) buffer 
management function works on the outside of the INSERT 
AREA, it can not track the new characters entered into the 
INSERT AREA. All inserted and deleted text must be 
processed by PROCESSBUF to ensure that the line markers are 
correctly osositioned. This processina occurs 1N Daraaraph 


increments because a Oaraaraoh 15 the smallest text 
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seament. During the text insertion process, certain 
formattina commands are entered directly by the user into 
the butter. Irreaular lines during the fill mode must he 
ended with a break character. Titles may pve labeled at 
this time. In additions the fills no frlle adjusts adiust 
off and the tab commands may be entered. 

Along with INSERT and DFLETE, an XCHANGE function was 
set uo and used. This allowed the renlacement of many 
strinas of the same lenqth. Becatise the string is the same 
lenath durina an XCHANGF there 18 no need to orocess the 
the modified text which is more efficient then readina and 
processing at least one Daragqrandh to reposition line 
markers if necessary. Several users have enjoyed the 
automatic wranaround feature which soeeds uo the inout 


process. 


I. FORMAT 

FORMAT imnlementation has been limited to titles, 
centering, tabs and other essential features for thesis 
orenaration. The following oaraqraohs describe the 
intended SCOPE FORMAT imolementation. 

The Format mode can be entered at anv point durina the 
editing session to chanae the outout specifications. It 
also moves the cursor to scan the texts and in addition, 
some commands deoend uoon the cursor for orover execution. 
The user moves the cursor to the position from which the 


format command will beain to have effect, enters the 
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correct format command and is then orompted for the correct 
command arguments. Formatting changes are immediately 
reflected on tne screen for user examination. 

Figure 4=*5 outlines the FORMAT command structure. User 
commands are alphabetic characters hut tne format commands 
Ine thne butter are control codes. Al] the format commands 
were assianed control! codes so that they could be easily 
distinquished from text characters. The decimal ASCII code 
ise the argument for the PASCAL CHA. function whieh 1s used 
to assian and identify all the format commands within the 
buffer. The kevboard control characters are used 
infrequently by the user during the editing and fornattina 
process. Certain commands, e.q. break, adjust, adjust off, 
fills no fills oaranraoh marker and tab may be entered 
directly by the user. Within the ouffers the numeric 
arguments for any format command, immediately follow the 
command and are themselves followed bv a break character so 
that they mav be easily distinguished from text numerals. 
Whenever oossible, the input command (command syntax) is 
mnemonically indicative of the action to ke performed, e.a. 
"u' for underline. The slashes tn certain commands 
indicate that the command 1S complex, has multiole 
arguments and that the user will qo through a series of 
prompts durina command entry. Margins are a qood example 
in which the user makes three different entries to set a 


Soecific marain. 
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Menus such as those presented in Fiaures 4-6 and 4-7, 
are disolayed unon user request to descrihe the current 
outout soecifications. Fiaqure 4-6 will be displayed unless 
the user has made some format chanqes. Fiqure 4-7 will be 
disolayed, if any of the default specifications have been 


altered. 


SP WRITE RAW FILE 

This module is the simolest of the main modules. It 
writes out every text character and format command, except 
a rubout character, within the buffer to the usersoecified 
file. The rubout character is used for the deletion of 
characters or spaces when it 18 Inconvenient to manionulate 
the INSERT AREA ton do so. In this manner SCOPE files are 


saved for future use. 


Ke LIST “RARGOCESSED FILES 

Hardcooy orintouts or lvstinmds at the text *vle ere 
required whenever the screen display is not adequate, e.g. 
proofreadina is often nore easily accomplished on paper. 
This orocess is hardware denendent because orinters have 
various drivers, carriaae control mechanisms and 
top-of-form alianments. To orovide some dearee of hardware 
independence, SCOPE includes a orocedure PRINTE? which 
Queries the user adout the orinter and makes aoorooriate 


marain adjustments. 
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The actual orinting process iS carried out in two 
steos. In the first steno, the format commands within the 
buffer are orocessed and the reanuisite characters, @.a. 
blanks for margins or carriage returns and line feeds for 
line and paraaraph markers, along with text characters are 
written to a user=snecified outout file. (his eutpur file 
contains only text characters, 1.e€. dolanks, alohabetic, 
numeric and soecial character datas, and carriage returns 
and line feeds. the second step of the printing orocess 
must he done outside of SCOPE execution and is acconplisned 


using the Shell command “eat filename.o! lor" [23]. Unless 
multinle cooies are being made, this metnod wastes 
secondary storage and should be changed before a oroduction 


Status is achieved. A direct one-sten Jlistina aqeneration 


is more efficient. 


bs SCREEN DISPLAY VICE LIstiInge 

Although the desian called for an exact duplicate of 
the final hardcopy outout on the screen, that 1S not the 
case in this imolementation. There were several reasons 
for this desian deoarture. Figure 4°83 is a diaaram of the 
CRT Screen Lavout. Since the area of the screen available 
for the disolay of text is limited fConly 21 lines here), 
double-soacina only allows the user to see a small seament 
of text (ll lines). Setter use of the Screen occurs when 
the text is sinale-spaced (21 lines of text are then 


disolayed). Fiaqures 4-9 and 4-10 illustrate this point. 
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The screen deniction also does not show adjusted lines of 
text. Manppina the cursor to the buffer contents becomes 
much more difficult and requires tne maintenance of 
information about each disolayed line if wraparound and 
other features are continued in their oresent form. The 
too and bottom marains which incluae tne runnina header and 
footer and nage numher do not annear on the screen. 
Finally, the representation of underlinina is difficult 
because the underline character overwrites the text 


Character at the same position. 
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Ve. FOLLOW*-0ON WORK AND ENHANCEMENTS 


Although the SCOPE system was used in the production of 
this thesiss more implementation and testina must be 
carried out before the system is ready for release to 
general users. The SCOPE program contains untested code 
segments, e.g. ADJUSTLN. Several imoortant editing 
features require inolementation. The COPY feature has not 
been fully tested. MOVF has not heen imolemented. The 
COPY, MOVE and XTRACTFILE features need to carefully check 
the format specifications in wffect at the original segment 
location. This may mean qoina back to the beaqinnina of the 
file and checking all the format commands between the 
beqginning and the start of the text being acted on. The 
LOCATE feature to do oattern searches can be imnlemented 
uUsSingr:the ealeerithm wm reference [3]. To be successful. 
LOCATE must identify a ovattern that has embedded fornat 
ecommands. REPLACE will use LOCATE to frnd the catterns to 
be reonlaced. 

Manv of the FORMAT specifications are currently fixed 
within the orogram and cannot be modified directlv by the 
user. FORMAT command sequences were desiaqned but not 
imolemented for commands reauiring arquments. In addition, 
table-handling and footnote mechanisms must de comoleted. 


The adjusting of text must be imolemented for hardcopy 
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printouts. Running headers and footers should be added. 

Uoon comoletion of the imolementations, systematic 
testing of the SCOPE system should he conducted. A user- 
oriented SCOPE Manual should be be develooed. A UNIX Shell 
proaram should be develooed for systen initialization and 
termination. This orogram would handle the setting of the 
terminal stty ootions and initiate execution. 

Once in a production mode, "“ougs" uncovered by the 
users will have to he corrected. Surveys of SCOPE users 
should be conducted to determine suaqgestions for strean= 
linina oromptina and command sequences, overcomina the most 
common user errorsse and enhancing the systen. An 
efficiency analysiss, using orofiles, snould be conducted to 
determine the most suitable areas of code for ootimization. 

This system is intended for use in the oreparation of 
Oroarams as well as documents, but so far no work has been 
done in that area. The format commandss, beina control 
codes, will have to be nasked out or orocessed before a 
SCGPE file can be used @s iaput to any comoiler. 

There are manv possibilities for system enhancement. 
SETMARKER could be exoanded to allow the user to set other 
markers within the file to ornooint spoecia!l locations. fhe 
adjusting of text lines on the screen and the associated 
mapping to successfully handle the extra embedded blanks 
would be a worthy project. Underlinina could be 


represented on the screen as another line of blanks and "“e 


67 





Characters underneath the required oostion. 

The page concept on the screen where the oaqge marains 
are actually shown delimited on the screen with the “f" 
character down each side for instance and the top and 
bottom of the page indicated hy dashes ("=") across the 
screen could he introduced. In this manner the screen 
becomes a more exact copy of the final output document. 
Carryina this further, the cage scrolling mechanism would 
mot only seroll throvah one hard cocy equivalent of a oage 
but allow the user to request a particular oaqge Dv number. 

An UNDO command allowina the user to easily recover 
from his last action miaht be heloful. Another valuable 
feature would be the provision of a document index 
containing overtinent information about the document such as 
its title, date of last unmdate, size, etc. This index 
would be readily accessible to the user from the command 
level. The introduction of a macrosorocessina canahility 
would be another possibility for enhancement. Finally, 
common document formats could be storea as templates to be 
easilv accessible tn the user. 

This desian could be innlemented on other svstens. The 
INTEL=based 8980/7-80 microprocessors are prime candidates 
using the new PL/T compiler bv Diaqital Research. Another 
candidate for SCOPE implementation is the I3™M svstem 
scheduled to be installed at the we. R. Church Computer 


Center in the fall of 1930. 
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VI. CONCENUSTONS 


The desian criteria for a “better” text orocessina 
system were discussed and a desian was develooed. This 
design was based uno0n an examination of currently available 
systems and a review of the desiqn criteria set forth oy 
recoqnized desianers such as Kernighan and Plauqher and 
Xerox personnel. SCOPE'S screen orientations interactive 
nature and intearation of services are the keys to this 
better desian. The implementation demonstrates the 
feasibility and value of such a comprehensive system. It 
is hooed that the design criteria oresented here can serve 
as a quide in the develooment, evaluation ana selection of 
commercial text processina systems, as well as presenting a 


basis for the desian of new text handling svstenms. 
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APPENDIX A 
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@an—r is OCHO OT 


@m— -~-— CHO AO 
@" CC D+ - CT ™ 


f— 4 wCU- C Cc x 


e 
° 


the above huffer contents would apoear on the screen as 


SCOPE Svsten. 


represents the cursor position. 


where 


SCOPE Buffer Lavourt 


Fiaqure 4-1. 
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- 


begin {SCOPE DP IVEP/MAINLINE} 
initialize variables; 
terminal; 
orinter; 
setdefaults,; 
setfornatcmds; 
clearscreen,; 
reneat 
oromot,; 
userinoutlemd); 
1Y Valid cad then 


case cmd of 


- 
- 
ee 


edit; 
a aa format? 


os listorocessed; 


re) 
0) 
+ 
@) 
12) 
ee 
th 
ce 
a) 
Cc 
Dp 


- 
= 
on 


readraw; 


- 
- 
ee 


writeraw; 
end {case} 
else {not a valid command} 
errormsa 
unt i? stoo; 


end. 


Fiqure 4-e. SCOPE Driver 


a 





Method I 


I 
{ 


Method II 


iy 


Move uo | lines stayina in same column 
er the one closest to the Verte. 


Move riaht | columns at end of line ao 
to first char of next line down. 


Move down 1! lines, Stayina in same col 
or the one closest on the riaht,. 


Move left 1 column, if beginning of line 
@o “to last char of orevious line. 


Move €o f7rst cher of mext | vee down, 
Scrollupr move unm approximately 3/4's 
of the screen with 5 lines of overlao. 
Scrolldown, move down aoocroximately 3/4's 
of the screen with 5S lines of overlap. 
Go to the beainnina of the file. 
Go to the end of the file. 


Fiaure 4-3. Cursor Movement 


ce 





Command Command Function 
Synta * 


A Addfile 

(e copy 

G Cursor Movement 
d delete 

i Insert 

| locate 

n move 

Q quit 

r reolace 

s setmarker 

x exchange 

xX eXtractfile 


Fiaqure 4-4, SCOPE ENIT Commands 
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Decimal Command 
ASCII Syntax 
Code 

1 4 

2 b 

3 e 

4 

5 e 

6 # 

7 m/n/ t 

B h/ ie t/ lemme ese 
9 tab key 
10 line feed key 
11 i/ 4 

le ] 

13 carriaae return 
14 n/t,t 

LS fo) 

16 control o 
17 m/t/# 

18 r 

19 s/t 
a0) t/a 

Pan | U 

ard 

23 m/\/# 
eu x 
eS control y 
eb control 2 
e7 b 
28 n/b/2 
29 e 

30 m/r/t 

31 m/o/# 


Fiaqure d=5. 


Formatting Command 


Keyboard 


Control] 


Adjust 

Break 

Center Line 

UNUSED (CUNIX end of file) 
Page Eject 

Pali 


Page Number Marain 
Running Header/Footer 
Tab 
UNUSED 
Indent 
Line Spacina 

Line Marker 

Page Numper 

Earl) Ott 

Paragraoh Marker 

Too Marain 

Rivant Justity Line 

Skip Lines 

Tite 

Underline 

available 

Left Margin 

Adjust Off 

Beginning of text Marker 
End of text Marker 

Beain Delimiter Marker 
Bottom Margin 

End Delimiter Marker 
Right Morain 

Paragraoh Marain 


{[UNITX * "J 


SCOPE FORMAT Command Structure 
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Code 


—“FeaN~<~ x 2K Cm NnNDOVOGO SZ FSCFAGKYKHTOAUMMIOOAD LYS 


varies 
varies 





DEFAULT/STANDARD FORMAT 


Rottom Marqin 
Left Marqin 
Paae No. Margin 
Paragraph Marqin 
Rivant Marain 
Too Marain 


Note: LO chars/7 inch and 6 


Adjust Mode 
Fill Mode 
LineSoacina 
Max lines 
Window Size 
Tab 


On 


$1 


9 Ins 
¢o1.)5 
6 Ins 
coll? 
col7e 
5 ins 


Screen 
ott 
on 
nale 
21 
21 

4 


MENU 
I oa 
ee 


i as 

Ltmargin+4d 
|W ee 

|e 
Ins/inch. 


On Listing 
on 
on 

double 
66 
N/A 
U 


Figure 4-6, SCOPE FORMAT Menu(Nefault) 
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Page 





CURRFNT FORMAT MENU 


Rottom Marain 6 Ins 
Lett Marain col B 
Paqe No. Marain 3 Ins 
Paraaraoh Margin colle 
Riaht Marain col7e2 
Too Maraqin 6 Ins 


Notes 10 chars/inch and 6 Ins/inch. 


On Sereen On Listing Page 
Adjust Mode of f of f 
Fill Mode off ont 
LineSpacina double double 
Max lines an 66 
Window Size 19 N/A 
Tah A B 


Figure 4=7. SCOPE FORMAT Menu(Current ) 
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columns 


Messaae Area 


le Text Area 


Left Marain Settina 
Paraaraoh Margin Setting 
Center of the Screen 
Riaht Maraqin Setting 
Lasr Colomn 


MDro vr 
Te 
TL 
VVVWV Vv 


Fiqure 4-8, CRT Screen Layout 
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ee 22s ef e2@2 @2@e e@e we we @e @e @e @e 2©e2@ @©2 @©e2@ we @©2® @©e@ ee ee @e 





EDIT MODE a)uit A)ddfile X)tractfile C)ursormove 
c)opy djelete i)nsert l)ocate m)ove 
r)eplace s)etmarker x)chanae 
Although the desian called for an exact duplicate of 

the final hardcooy output on the screen, that is not the 
case in this imolementation. There were several reasons 
for this desian departure. Figure 4-8 is a diaaram of the 
CRT Screen Layout. Since the area of the screen availahle 
for the disolay of text 1s limited (fConlv 2! lines here), 
double-soacina only allows the user tn see a small seament 
of text (11 lines). Retter use of the screen occurs wnen 
the text is sinalle-scaced (2! lines of text are then 
disolayed. Figures 4°9 and 4-10 illustrate this point. 
The screen depiction also does not Show adjusted lines of 
text. Mapoina tne cursor to the buffer contents becomes 
much more difficult and requires tne maintenance of 
information about each disolaved line if wraoaround and 
other features are continued in their oresent form. The 
top and bottom margins which include the runnuna header and 
footer and oaqe number do not anvear on the screen. 
Finally,s the renresentation of underlinina is difficult 
because the underline character overwrites the text 
character at the same oosition. 


Fiqure 4-9, Sample SCOPE Screen DPisolay #1 
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EDIT MODE a)uit A)ddfile X)tractfile C)ursormove 

c)ooy d)elete i)Jnsert l)ocate mn)ove 

rleolace sJetmarker x)chanaqe 

Although the desian called for an exact duplicate of 

the final hardcopy output on the screens, that is not the 
case in this imolementation, There were several reasons 
for this desian departure, Figqure 4-8 is a diaaram of the 
CRT Screen Layout. Since the area of the screen available 
for the disolay of text is limited fonly e1 lines here), 
doubleesoacina only allows the user to see a small segment 
of fext (€(11 lines), Retter use of the screen occurs when 
the text is singqlle-scaced (21 lines of text are then 


disolayed. Figures 4*9 and 4-10 illustrate this point. 


The screen deoiction also does not show adjusted lines of 


Figure 4-10, Samole SCOPE Screen Display #2 
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APPENDIX B 


SCOPE, SCreen=Oriented Processor and Fditor, is an 
interactive, integrated, screen=-oriented, context= oriented 
text mrocessing system. It performs the functions of both 
a text editor and formatter. The following paragraohs 
provide a orief description of the intended SCOPE Systen. 

While using SCOPE, the file that is edited or formatted 
is disolayed on the CRI screen which acts as a "window" on 
the text. This file exists in a stream format, i.e.r the 
ttle 1S a Continuous stream of character data. In this 
character stream, the lines of text are defined by a line 
marker or a Oaraqraoh marker which oreceeds each line or 
paraqraoh resoectively. Along with the text and markers 
the stream also contains format comnands which cannot be 
confused with either the text or markers. 

The cursor position on the screen serves to Dinodoint 
the text toc0b] orocessed. Cursor movement occurs ih one of 
four directions: down and right for forward movement and up 
and left for hackward movement. “ovement throuah the body 
of text is accomplished character by character, line by 
line, a screenful of lines at a time, or by a Paae of lines 
where a oage reflects the hardcooy orintout lenath. Ravid 
movement through the text 1S oerformed usina commands, e.a. 


'D' for scrolldown, which allows the user to move forward 
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through the equivalent of 3/4's of the screen. 

Durina the editina session, text is inserted in free 
format with full-word wraoaround at the end of each line. 
The system worries about each end of line thereby freeing 
the user to concentrate only upon inoutina as rapidly as 
possible. Blocks of text may be conied from one place to 
another within the same file and to another file. Deleted 
material is not removed from the buffer until the user 
positively acknowledaes this action thus preventing some 
unintentional errors. Context searches are also available. 
Table construction is facilitated by the use of tabs. The 
format seecifications are in effect durina the edit 
process. 

In the formatting mode the user immediately sees the 
processed results upon the CRT screen. The cursor position 
aaain determines where the formatting action 1S to occur. 
Menus are provided to the user for the selection of desired 
formattina specifications. There is a default menu that 
orovides the user with a reasonable page lavout as defined 
by the NPS Thesis Manual. Hardcooy printouts of the 
document mav be aenerated on various models of orinters. 
Centerindsr rivanht justitications ise. alignment alonaq the 
right marain, underlining, running headers and footers and 


footnotina will be orovided. 
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SCOPE Execution Commands 


% Stty craw =echo nl 
vA 


ox scone {does not aopear on screen} 


enter the terminal tvoe as follows: 
1 for adm-3a, 2 for dmiS20, 3 for dmeS00 
> 


orint listina on UNIX orinter=-"y or n? 
> 


COMMAND MONDE > 
eldit flormat l)listine a)duit er)Madtfile@ wiritefile 


SCOPE Comnilation Commands 


% 01 7D filename.o {to compoile source} 
=2 {to generate orofile counters} 
-9 {necessary to turn off stmt 

% mv obj} scope {to correctly name the ooject 


modulwe} 


%4 oxp -efe filename.o {orovides formatted oam 


% oxp <2 filename.o {to generate profile} 
limit counter} 


Re 


listynoar 





program scodpelinouts, outout, infile, outfile); 
(* abbreviations used in SCOPE tin alohabetical oroer... 

addr : address 
b, heaq : heainning 
b >: hottom 
blk > blank 
bu f :. bot fer 
Cc : center 
chs char : character 
cha 2: channe 
cmd 2 command 
Chie COCr >; €Ounts county er 
co) : column 
const : Cons ant 
convrt >: convert 
el ok ae : Carriage return 
D : scrolldown 
de] : delete 
dir {Sar eect von 
e > end 
in : snout 
lre.tnd* > Index 
yart : initializer, initialization 
mc : increment 
nS : insert 
jmo : jumo 
] : ett. 
if : line feed 
Tm : line marker 
In : line 
locn : tocatoxon 
m > marker 
ma x 2 maxi num 
msqg > messaqae 
neg ¢: neqative 
Nor Num 2 number 
fe) : oF 
Or oOara : oaraaqraoh 
pq 2 paaqe 
pom $ pareaaraonh marker 
DOS : positive 
r Seon? 
i - tooer text 
U : under, uo 
U * sero] luo 
var : variable 

end abbreviations *) 
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const 
overlao = Ss (kno of Ins to he reconvied during scrolling*«) 
buflimit = 30000; 
Imaxchars = 147 (*limit on user inout of lona length?) 
smaxchars = 47 (*limit on user inout of short length*) 
msalIns = 33 (kno. of lines in msaq area) 
linel 
lined 
line3 
negli 
0051 
zero 
cols 
colle 
cole4 


“om ow 
aout 

aor | 
Ny ae we ve ee NTU 
=e Se Be Be Be 


£ MM, 
=¢ 2e 
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var 


emotybuf, fileread, namingfile, stoo: boolean, 
fill, markersok, alistinag: boolean; 
bhegqmset, endmset, newmset: boolean? 


che cemdchar, entchar, hells botchar, down: chars 
acceptr,y erasers Quits, om, Im, Ff, cre clear: char? 
bm, @Ms nM, INMChare homes, left, ud, Right: chars 
centerlinch, underlnchs, titlech, naejectch: chars, 
indentch, headerch, footerch, fillch, ruhout: char? 
pgnumch, filloffch, skiolnch, hreakch: char? 
etiustifychs Ymarqiachs emarainch, tabch: char? 
tmarainchs, bomarginch, omarginch,s, pamargqinchs: char; 
adjustch, adjustoffch, \insoacinach: char?3 

{escape, fruboutichar; don't work 1n raw mode} 


buti@r: array Cleahbutlimit) sof chars 
emo’ array (tl..ssmaxchars!] of char: 
names; array [1..!maxchars] of char? 
footbut: array: (1.30) of char; 
headbuf: array [(1..80] of char? 
underlnbuf: atray {1..701 of char: 


imfile, outfile: text; 


cndset, edcemdset, cursormoveset: set of char; 
{cursormoveset is only for documentation purnoses 
because this Pascal doesn't allow chr defined 
variables in a set to be recognized oroperly.} 


ne bufindx, insend, insbeq,s, numbers intener; 
rownor colno, lastcols lastInsg vaqeno: inteaer; 
termno, blnoffset, tinoffsets rmarain: inteaer;s 
bmarainsg Imargqine ogmarainsg omarain: integers 
tmarains naxogInss, Insoacing: inteaers 

delbeaq, delend, jr ir beatext: integer; 
heqindx, endindx, newindx:s inteqer; 

charcnts centerofpaqr, tabs tabecnt: integers 


Biklioens: array {1..201 of integer; 
tablocns: array [1..20! of inteaer; 
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fumerr0ON bot: boolean? 


(* this fune indicates that the heainnina of 
the text has been reached when it is true.*) 


heain (xe bot x) 
Hot f= ch = botchar 
end; (* bot *) 


function boln: boolean; 


(xthis fune indicates that the char (ch) read 
from the buffer or file is the beainning of 
line marker, i.e. Im. *) 


beain te o0 1m ><) 


end: (* poln -*) 


function boo: boolean; 


(*this func indicates that the char (ch) read 
from the buffer or file is the beaqinnina of 
paraaraph marker, i.e. Om ,*) 


beain (x boo *) 
bom := ch = pom 
end: (* boo *) 


function break: booleans 
(xthis function indicates that the char (eh) 
read from the buffer or file is the break char.*) 


beain (* break *) 
break := ch = breakch 
end: (* break *) 


function eat: hoolean; 


(*this fune is analogous to the eof and eoln 
funcs and indicates the end of the text has 
been reached.*) 


begin (* eot *) 
eot := ch = eotchar 


end; (x eot *) 
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function fornatchar: 
(xthis func ts true when ch 
command or oart of one,.*) 


boolean: 


ts a format 


beqin (x formatchar *) 
it Cord(cen) >=.0) and ford(ch) <= 31) then 
formatchar := true 
elce. (fo ch vin (71%, *2%5 *S* ya's, 757) “hen sbegin 
{ check for numeric oart of format commands } 
eh <= cerouftenarc(-1); 
formatchar $= eh in [titlvech, Insoacirnach!] ; 
ch $= aetbufchar( +1) 
end; 
formatchar := false 
end; (x formatchar *) 


function textchar: boolean, 


(xthis func is true when ch 
disolavable text char only. 
markers and format commands 
value to be returned. *) 


bean 
>= 


textchar := (ord(ch) 


end: 


Se) and ford(ch) 


is a. val sa 
Line/para 
cause a false 


(* textchar *) 


<= 126) 


(* textchar *) 
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function gethufcharlinc: integer): char; 


(xthis func aets a char from the buffer. It 
is either the oredecessor, Same or successor 
to the last char returned.*) 

(* tne has the values +#1,0,°1.*) 


const 
neal 
zero 
p0s1 


-1; 
0 
+1; 


begin (* getbufchar 
case inc of 
neql: 
beain 
bufferlinsend] := bufferfboufindx)]; 
insend := insend = 1; 
butindx *= bufitnmdx« -.1¢3 
insbeq $= insbea - 1 
end; 
zero? ; 
null; (€* no chanae within the buffer *) 
posl: 
beqain 
butindy $= bufinds + 13 
insbeg := insbeg + 13 
insend := insend + 1; 
huffer{bufindx) := bufferlinsend) 
end 
end; (* case *) 
getbufchar := buffer lbufindx) 
end? (x getbufchar 


BA 


*) 


*) 





function Inlenath: integer; 

(«this fune counts the chars, includina 

spaces w/in the current line of the buffer and 
exoects the huffer oosition to be at Im or pom.*) 


var 
cnt: tnteaqer; 


heain (* lalenath *) 


= agetbufcharl+!l); 
Cnhtst=se0t. + 1 

until newline or eots 
Iinlenoth <= cnt; 

{return to beginning of line} 


reoeat 
ch t= cetbufchar(=1); 
Cnt = enc. =~! 
until ent < 0 
end; (x Inlenath *) 
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function newline: boolean; 

(*this func is true whenever an Im, om, 
or format cmd inndicatina a new line is 
encountered.*) 


beain (* newline *) 
newline := ch in [breakch, pom, Im, titlech,s, ogejectch] 


end; (x newline *) 


function center: iwntecger: 
Cathis func returns the startina oosition 
for the centerina of a line.*) 


begin (* center *) 
center := centerofog - Inlenath div e 


end: {* ‘eenrer *) 


90 





procedure terminal; 


(* this procedure sets the terminal constants, 1.@. 
ascii codes based on the user inout terminal type.*) 


var 
ans: char, 
orocedure adm3a; 


(xthis proc assians the unique adm-3a terminal codes.*) 


heatn (x adm3a *) 
home := chr( 30); 
elear := chr(26)? 
Hp’ f= chriidtdy 
right <= chr le) 
end: (* admsa *) 


procedure dm1570; 


(xthis proc assians the unique dm=1520 terminal codes.*) 


heain (* dmiSen *) 
home = chr(i9); 
clear <= chr(i2)? 
uo 2= ¢hr (S11); 
right ¢s ¢hrte?) 
end? (x dm1520 *) 


procedure dm2590;3 


(x this oroc assigns the unique dm-2500 terminal coces.*) 


bean (x dm2e500 *«) 
home := chr(?); 
Clear 2= ¢he( 50)? 
up; += chrteo), 
rivantr <= chr(c2) 
end: (* dm2500 *) 
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procedure termcodes; 


(*tnhigs proc assians the ascii terminal codes 
that are common to all the terminals used w/ 
this system.*) 


beaqin (* termcodes *) 
bastco!) <2= 60; 
last tn ¢= 243 


pel! s= chre(7); 

= chr(13)7 

= chr(10)7 (* down *) 
downet=cenresc); 

(* note that Ilf/down anpears as ' ' on UNIX *) 
pubout t= chr (lel); 

{rubout from terminal doesn't work in raw node} 
{escape := chr(27)? doesn't work in raw mode} 
left := chr( 8); 
aceceot $= chr(l): (*entrl a *) 
erase 33 chr(5)2 (Ceentrl e *) 
auviers = chre(lli) Cecntrel a 2) 

end? (* termcodes *) 
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a 
- > oe 
—e 
on ire, ; 


ia 






aad - 








beain (* terminal x) 


write(chr( 26), chrli2), chr(30)):; 

write(' enter the terminal type as follows : '); 
wervretchr(13), chrtlo)); 

write('l for adm-3a, 2 for dmi520, 3 for dm2500'); 


wevee(chr(t3), chr(10), ° > ee a 
repeat 
read(ans) 
Uot1 |) Cans. = *1") of Cans = *S*) ce Cans = *3*)7 


termcodes, 
case ans of 
males 
beain 
adms3a; 
termno := 1 
end; 
2 Se 
beain 
dm1520; 
termno := 2 
end; 
ae 2 
beain 
dm?500; 
termno := 3 
end 
end (* case *) 
end? (* terninal *) 


so 





procedure setdefaults; 

(athis proc sets the default values for 
a standard 8 1/e" x 11" sheet of paoer 
Moo. maraqins,etc.*) 


beain (x setdefaults *) 
fill °= true; 
bmaragin t= 9) (* | ife” *) 
imarawn <= 7135) (+71 174" ®) 
pamaroin := 67 Ce 1% 2%) 
omarain := 177 (* 4 spaces in fm Imarqin *) 
rmarain i= 72; (* 1 174" «) 
tmacaqin <= 6; (* |" «) 
maxpalns := 66; 
Insoacina 3= 2; 
centerofog := (rmarain = Imarain) div 2 + tmarain; 


tab 3= 4; 
ite AG 
reneat 
tablocnsin}] <= imarain +. 1 + tab * nz 
fess noe 
umti! (nm = 2€ly or Cead * n >=°20) 
end: (x setdefaults *) 
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orocedure setformatcmds; 
(xthis oroc assians the ascii codes for the 
format cmds and markers used w/in this system*) 


begin (x setformatcmds *) 
adprusteh <= chr(l); (* enter! a *) 
be@eakoh <= chr(ed); (€* cntrl b *) 
eentertnch <= ehets)F7 (* centri c *) 
tmarainch := chr(4);, (* entrl d *) 
poejectch 2= chr(S)¢ C* enter! e *) 
fil len <= chelo)? Catcmter) € *) 
pomacoioch i= chris); (€* centri @ *) 


headerch 3= chr(&)e €* centri h *) 
teboh © <chrio)+ C* cnr! 1) 
indentch 2= chr(1l1)? (€* entrl k *) 
bmaspacinach ©= chr€le)? (*-entr) 1 *) 
Im s= che(13)7 (C#line marker = crt) 
oanumch i= chelidd, €(* entri n =) 
fV 1 Vottenh.:= chetis)?: (* enter! 6) 
pm := chr(16)¢: (*para marker = cntrl o*) 
fooperch 2= chr(l?): Ce lentrl 794) 
et pustitvckh ¢= chrila)?; (* enter) © *) 
skiplnch i= chrliSy? (* entrli s *) 
titvéch += chel2e0); (4 cntrl t *) 
uaderinch f= ehricti; C*°entel u *) 
mn t= chr(2e);s (*new markertzcnterl ve) 
Imacoqinen <= cheles3)7°o(* centr! w *) 
adiwstotfch := chr(ed): (eA "entecl) «x *) 
hotehar 2:= chreS)? (* entrl y *) 
eotchar t= chr(26);7 (* entrl z *) 
bm 3s= chr(27)e (ebeain marker=cntr) (*) 
bmarcinch *= chee)? (* entrl N *) 
em := chrer(29)7 (*end marker=cntrl 1*) 
emarainch := chr(30)% (* varies *) 
Omarginch := chr(31) (* varies *) 

end; (x setformatcmds *) 
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orocedure xvyaddr(col, row: inteaer); 


(xthis oroc initiates absolute x-y addressina on 
the crt screen for adm-3a and dm-1520 terminals. 
termnum is 1 for the adn-3a and 2 for the dm-1520. 
col is the actual column numher on the screen 

from 1 to 80 where the disnlay is to occur. 

row 18 the actual row number on the screen 

from 1 to 24 where the disnlay 1s to occur.*) 


begin (* xyaddr *J 
case ternno of 
1: (* admeoj3a *) 
write(chr(2e/),chr(41)-,chr(rowt+35l)-chr(colt+3t))> 
(x 31 is the offset for ea. value to set the 
correct ascii code.*) 
23s (* dmn-1520 *«) 
weitelCcenr(30)+ echrtco! + 31). chrtrow + 51197 
3° 
heqin (* dm=2500 *) 
(xthe offsets vary in settina the correct ascii coder) 
+f Col <= $e then 
col t= ¢€o! * 95 
else if (col >= 33) and (col <= 64) then 
€01 t= eo! + 65 
else if (col >= 65) and (col <= 80) then 
eol t= eo) + 513 
write(chr(12), chrlcol), chrlrow + 95)) 
end 
end (* case *) 
end, (* xvaddr *) 
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procedure suseritnputlnochars: inteaqer); 


(*this proc gets nochars of user inout. A 
€cr> terminates short user input.*) 


begin (* suserinnut *) 
1 3:= 1; 
repeat 
read(inchar); 
if inchar = erase then begin 
write(left, ' ", left); 
ee ee 
end else begin 
if inchar <> cr then beain 
write(inchar)-, 
if 1 <= sgmaxchars then 
emd{i} 3= inchar?s 
ifs 4 4 | 


end 
end 
until Cinechar = cr) or (1 > smaxchars + 1)? 


if 41 <= nochars then 
for n := 31 to smaxchars do 


emdin} <= * * 
else 
for mn t= nochars + 1 to smaxchars do 
ecmaind <= *.” 
end: (x suserinout *) 
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procedure luserinout(nochars: inteoer)? 


Sttnis Ofroe aets nochers of user inout. A 
€cr> terminates long user inout.*«) 


beain (* Tuserinout 
eae ie 
reneat 
read(inchar); 
if Cinchar = erase) and (i > 1) then hagin 
wer tvetleft; * "sett )> 


es a | 
end else beain 
if inchar <> cr then begin 
write(inchar); 
if y <= Imaxchars then beaqin 
name(s] ¢= t{nchar; 
13s 47 + | 
end 
end 
end 
gntt) Ciaehierr Ss er) ofr (Cn > Imaxchars: +° 107 
if naminafile then 
(seheck for <O-4n filename) 
14 €mameli1 = 2) <> *.°) of ‘Cnemels = 1] <> 
if i <= nochars - 1 then beaqin 
namef{i) s:= '.'; 
namels + 11 = ‘'o'; 
Mbe=  h. thie 
end else begin 


name(nochars - 1] := '.'3 
namelnocharsl] := ‘o' 
end 
end; 


if 1 <= nochars then 
for m2]. 4. to Imaxenars do 
namefn] := 


= nochars + | to Imaxchars do 


end; (x luserinout 


9A 


* ) 


eo) 


*) 


then pegin 








Orocedure convrtnum(i: integers var num: integer); 
(this proc converts the char numoer in the 

string Startina at index 41 into an inteaqer value.*) 
function unit(charno: char): inteqer; 


(xthis func returns the unit itinteaer value 
of the char number,.*) 


beqin CA UGA * 
unite <=.ord(eharno) =—.crdt'0*) 
end: (* unit *) 
beatin (* €¢onvertnum *) 
n t= 03 
reoceat 


A= 9. +S] 
unats? ecmadly + nj = * * 
case n of 


=e 


je: 

num <= ynirt’Cemad(i)); 
es 

num <= unyt Cemdtii)) * 10 + unit Cenmdli ©. 11); 
ae 


nums=unitl(emd lil) *«100¢tunit Comdli+1)) *10+unit Cendlite) ) 
end (* case *) 
end; (* convertnum *) 
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procedure blankin€rownum: tnteaer); 


C*this oroc causes a line of blanks to be 
printed extending from the left screen 
boundary to the 7Sth col on the riaht so 
that the bell doesn't ring each time.*) 


begin 
xyaddr(i, rownum); 
write(' 
write (' 
write(' ) 
end, 


procedure msaclear; 


(x*this proc blanks out the first 


(ix 


5 


the ert screen, i.2. the msg area. 


beqin 
blankIn€linel); 
blankIn(€lineed)? 
blankIn(€line3) 
end, 


orocedure pause; 


(* 


(xthisg oroc makes the user aware of 


and oromots by requiring his interaction w/ 


system.*) 


var 
ans: char; 


beaqin 
xyaddr(col2e4, lines); 
write(' <space> to continue ') 
repeat 
read(ans) 
UoOtyT) ans = "°° 


end: 


100 


blankIn *) 


= 
od 
we se 


blanklIn *) 


lines of 
« ) 


msaclear *) 


msaclear *) 


error MSas 


the 





procedure oromotfpromotnum: intener); 


(xthis proc writes out the promot 


indicated by 


promotnum in the msqg area on the crt Screen. *) 


beain 
msaclear; 
xyaddr(colle, linet)? 
case promptnum of 
Is 
beain 


write('EDIT MODE a)uit A)ddftile X¥)tractfile 


write('C)ursornove'); 
xyaddr(colte, line); 


write('c)ony d)jelete i)nsert 


xyaddr(coli2, lines)? 


(x 


write('rjeolace sjetmarker 


xyaddr(colnosr rowno) 

end; 

ea = 

heain 
write('INSFRT MODE’)? 
xvyaddr(col8, lined); 
write('ctr! a to accept, 
wreite(*ctr? a to auit ~) 


oromot *) 


x )cohange'); 


ctrl eto erase; 


> 


eter 


end; 
a2 
beqin 
write('FORMAT MODE’) 
end; 
as 
beqin 
write('COMMAND MODE >! 
xyaddr(col®f, lined); 
weste("eldit flormat 1 jastine arart "27 
write('r)eadfile w)ritefile'’); 
xyaddr(col® + 22, linel) 
end: 
3 
begin 
wreiteC* DELETE MODE*); 
xyaddr(col®s lined); 
write(*ctrl a to acceot? 
end; 
6: 
beqin 
write('COPY MODE’) 
end; 


| 


Qo to aqui1t’ ] 


fe 


lJocate mj)ove'):; 


ie 


e 
’ 





18 
heain 
writet' MOVE MODE") 
end; 
Be 
heqin 
write('processing comoleted.');3 
xyaddr(col%, line2); 
write('delete markers set in bufferery or n ?'); 
xyaddr(col®, line3); 
write('>') 
end; 
10: 
beqin 
wey eC ibutter tod.l tf) 2° 93 
xyaddr(col&s linece); 
wreetvel*entr!| ealrecent or entrl qiuit 7") 
end; 
tae 
beqin 
weiteC'does file already exi6¢t=<-y.0or n 27° )% 
xyaddr(colS, lined); 
write('>'") 
end; 
le: 
beqin 
write(C'enter initial oaqe no. followed by <er>'); 
xyaddr(cola, lined); 
write('>') 
end; 
Ps: 
heain 
weite(’orint listinaq on WNIX orintere“-y ofr n 7°); 
xyaddricolid, lined); 
write('>') 
end? 
Va; 
wreite (“at end of filet); 
1S¢ 
wreice('’listing being oroduced’); 
V6 
beain 
write('SETMARKER MODE Alegqgin E)Jnd NyJewlocn'); 
xyaddr(colle + 2, linee); 
write('’move cursor then cnterl s to Setmnarker ‘'); 
write C Cntr @& to quit! )? 
xyaddr(colS, lines); 
write('’text between/including 8) and E) chars ‘);3 
write("1s oleced before the cursor. ') 
end, 


1c 


— 7 - a 


7 7 . 7 ~~ 7 7 _ — -— 
fe ae 7 oa ae ee 
~ _— . ad 8 a 
: ag i a 7 


oY 








UY AB 


beain 
wejite(*LOCATF MONE”) 
end; 
18s 
beqin 
write(*REPLACE MODE') 
end: 
Los 
write(*sat beatnnina of filet)? 
20: 
write('XCHANGE MODE'); 
ele 
weite(*Addfi ie"): 
ee: 
writeC"Xtract file’); 
es: 
beqin 
write('Cursor Movement arrows 7 


xyaddr(col®, lined); 
writet*<er>. U)serolliuo Discrolldewn elage"): 
xyaddr(col&s, lined); 
write('b)Jegqinnina of file e)na of file') 
end 
end (* case *) 
end: (* oromet *) 
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procedure errormsag(msgnum: integer); 


(*this proc prints out the error msa indicated 
by msgnum in the msg area on the crt screen.*) 


begin (* errornsa *) 
write(bell); 
msaclear; 
xyaddr(colieds linet); 
case msgqnum of 


ae 
wervtel(’ invalid command’)? 
C3: 
hearin 
write('moving the cursor 1S meaninaless w/ ');3 
write('no text oresent in the buffer.') 
end; 
3 
write('rieadfile before entering EDIT MONDE'); 
Os 
write('invalid EDIT command'); 
pli 
write('rjeadfile before entering FORMAT MODE'); 
6: 
write('invalid INSERT command'); 
1: 
write('all inserted text has been erased'); 
Re 
writet* invalid DELETE eommand’*), 
93 
beain 
write('deletion direction must be consistent, 1.e.')3 
xyaddr(colS, lined); 
write('ao riaht and down or ao lett and up.) 
end; 
PO? 
write('invalid SETMARKER command'); 
pS 
write('begin marker already set'); 
{26 
write('end marker already set'); 
13s 


write('new locn marker already set')3 
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as 
write('begin marker must occur before end marker'); 


ES 

write('new locn cannot be located in the delimited text')3 
to: 

write('begin marker has not heen set'): 
ee fe 

writel€'end marker has not been set'); 
1a: 

write('new locn marker has not been set'); 
Lo: 

writel* insufficient buffer soaee for copy to occur’); 
Zoe 

write('please indicate the title tvoerrl, ec, 3, 4'); 
el? 

write('not implemented'); 
ees 

write('r)eadfile before entering SETMARKER mode'); 
23: 


write('buffer fullidists') 
end; (* case *) 
pause 
end; (* errormsq *) 
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procedure orinter; 
(xthis proc makes necessary adjustments to 
margins for the UNIX printer,.*) 


begin (* orirnter *) 
reoeat 
oromot( 13); 
suserinovut (1) 
until Cemdtl] = *y*) of femal) = *n")? 
1f cmd{l} = *y' then begin 
(*UNIX printer's driver allows the user 
to write onlv 63 lines to a oq vice 60.*) 
tinoffset t= 27 €(% 2 In at the too *) 
blaotfset t= e€ (* 2 Ins at the bortons) 
end else begin 
tinoffset 3= 
binoffset := 
end 
end, (x printer *) 


0; 
0 
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procedure aetnumericmd; ; 
(xthis proc aets the numeric part of a format 
command and converts it to an itinteger.*) 


beain (* getnumericmd *) 
i 2s 03 
reneat 


Se ee 
ch := qe 
email : 
unt?! brea 
emd{i] := ue 
convetnum(i |- ley number) 
end: (* getnumericmd *] 


\g 
= ch 
le 
’ 


procedure jmntomarker(markerchar: cnars inc: integer); 
(xthis proc moves backward or forward thru the vouffer 
until the marker, e.9a. bot is reached. inc indicates 
the direction of the nove, i.e. +1==>forward and 
-l==>backward.*) 


beqin (x jmotomarker *) 
ch: *2 qerbutchar(0) ; 
if ch <> markerchar then 


reoeat 
ch := aqetbufcharlinc) 
until ch = markerchar 
end: (x jmotomarker *) 
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procedure filename(calledby: 


(xthis proc requests user 
the file to be orocessead. 


the '.0° for a PASCAL 


Chan)? 


inout of the name orf 
Up to 14 charss includina 


f1 le, ConsiStinorot aloha ara 


numeric chars and the period are allowed.*) 


begin 
msgclear; 
xyvadartecollt2,s 


case calledby of 

wR s 
write('name 

a 
write('name 

sd ese 
write('name 

“uw 
write('name 

ie 
write('name 
end; {case} 
xyaddr(col§&, 


the 


the 


the 


the 


the 


linee); 


write('enter the filename.p, 


(* +) 


filename 


linel); 


file ta be added to the buffer,'); 
lsee ina (1 le, 5 


rawtii le to be read into the butter; ');7 


raw file saving the buffer contents, ') 7 


file to be eXtracted from the huffer,') 


ue “to 14 chars, °J-¢ 


weitel'’ followed by <crr’); 


xyaddr(colf, lines); 
write('>"); 
namingfile := true; 


luserinput (1m 
namingfile := false; 
write('the filename 
pause 


end, 


axchars); 


is se Kame d > 


(* +) 


filename 
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function startIn(nolines: inteqer): char? 


(xethis fune finds the beninnina of the line to be 
displayed by either backtracking or skinning forward 
through the buffer ony counting the number of line and 
paragraph markers encountered and comoarina this total 
w/ the specified nolines. StartIin returns an Im or om. 
nolines values indicate the followina: 


-n backward n line(s), 

0 same line, 

+1 forward nh linels). *) 

hegin (4Aestartiqw*) 


if nolines <= 0 then pneain (* ao backwards *) 
([s To find stact of current line *) 
ch 3:= aetbufchar(0); 
if not newline and not bot then 
repeat 
ch t=laetbufchar l=!) 
until newline or bot 
end; 
if (nolines < 0) and not bot then 
repeat 
repeat 
ch 3:= oetbufchar(e-1 ) 
until newline or boot; 
nolines := nolines + 1 
until f€nolines = 0) or bot 


else if (nolines > 0) and not eot then 

{ Go forward } 
repeat 

repeat 

ch !=.9oe@tbutcheart+|)) 

until newline or eot? 

nolines := nolines = 1 
until (nolines = 0) or eot? 


if bot then beain 
reoceat 
en’ t= getoufchar( +1) 
until newline 
end else if eot then 
reoeat ; 
eh <= gqetbufehar(=1) 
until newlines 


Startcin: t= “cn 
end; (* startin *) 
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procedure setcursor(nocol, 


(xthvs proce mans the cursor col 
correct oosition in the huffer. 
eqlmioen of the text char 
See startIin above 


begin 
ch 3= startin (nolines); 
tt noeco) = 
if DOIN then 
cotlno := Imargin + 1 
else if hoo then 
colno := omargin +# 1 
else if ch = tabch then 


orocesstah; 


(40 to 16t char in line an 
reocest 
ch 3= qetbufchar(+1) 
until textchar or eot 
end else begin 
if boln then 
i 3:= Imargin 
else 1f boo then 
1 #%= omargin 
else if ch = tabch then 
i <= Imarqin + tab: 
repeat 
ch := getbufchar(+1);3 


if textchar then 
| oe — on re 
until (1 = 
(xif there 
then pt to 
if newline 
repes3t 
ch := aetbufchar(l-1) 
until textchar; 
colno == 1 
end 
end: 


the last onme.*) 
or eot then 


nolines: 


InN the 
for nolines descriotion.*«) 


Imargqin then heain 


noco!) or newline or 
are not enough chars 


integer); 
and row to the 


Nocol is the 
line of text. 


C* setcursor *) 


the buffer. *) 


ect; 


in the line 


(* setcursor *) 





orocedure adjustinl€Inentr: integer); 

GArhnuSs —oroc inserts extra blanks in a In of words 

so that the last char of the lasr word is on the 

riaht margin. Each In is divided into 2 oarts at 

midword. lbl kent and rolkent are tne # of blanks 

inserted to the left and right of tridword. endbd!i«xent 

is the total 4 of blanks to he inserted in the In. 

biklocns indicates where win the In blanks are located. 
inc is the offset in biklocens due to orevious blank 
insertion. lend is the blank position oreceding midword.*) 


var 
endbikents i+ ines lblkents rolkent: integer; 
midword, wordcnts Insizer lend: inteaer; 
blklocns: array [1..201 of inteaer; 


procedure cntwords; 
(*this proc counts the 4 of words ina In of text 
and finds out where blanks may be inserted.*) 


beain (x ecntwords *) 
eh s= startrin(-l); 
wordent := 0; 
1 33 13 


if Insize > centernfng + 3 then heain 


while i <= Insize do begin 
en = acetbutchar (+ i2 
if ch = * *"then peain 


{check for 2 soaces toaether} 
if Cwordent>=lland(blkiocnstwordent] <>i-!1) then heain 
wordcnt: := wordent * 17 
bikelocns fwordent!] <= 43 
end else if wordcnt < |] then bedin 
wordent := 13 
Bik oens(l} = 3 


end 
end, 
a ee ee ae 
end, 
wordcnt := wordent + 1 


end 
end: (* entwords *) 





procedure leftside; 
(xthis proc adjusts the left half of the line 
by inserting extra blanks to the left of midword*s) 


beqin (* leaftside +) 


= Jolkents* (midword = 1)3 
= start ln? 3 


e(outfile,r ch)? 
inc < lend) and (lIblkent > 0) then negin 
1f j = oOlklocns(i}] then heaqin 
for-o42= | to Ibikent “de deqin 
f ee el; 
wratetCout file, * *) 
end, 
oie = a els 
VWHe t= Sne + lel kent: 
bielocns t+) £2 biklocnsti)] +“ wne 
end 
end; 
ives  f pte 
unty) we >= Tend 
end; (* ‘lett side *) 


1 
\4 
S= netbufchar( +1); 
t 
( 


lle 





Oorocedure rtside; 
(xthis proc adjusts the riaht half of the line 
by inserting extra blanks to the riaht of midword*) 


begin (* rtside *) 
1 $= midword; 
repeat 
ch $= aetbufchar(tl); 


writeloutfile, ch); 
if Ci < wordent) and (rolkent > 0) then beain 
if j= (olklocnstt) thenybanin 
for nm $= I to rblkcat do begin 
j := j + 13 
writeCoutfile, °* ') 
end; 
foes 4 ct LG 
ime &=.9ne + rbhi kent: 
blkloeas (it $3 biklocnsti)] + ine 
end 
end; 
k->= jf. + 1 
waAtyl! 7 > -ins1vZe 
end; (* retside *) 


beqin (* aditistin *) 
Insize := Inlength; 
endb|l kent := rmaragin - (Insize + Imarain); 
if endblkent > 0 then heain 
cntwords-; 
if wordcnt > 0 then heain 
if Inentr mod 2 = 9 then beain 
loleent 22 endhlkent.aiv (wordent = 127 


Pobkenr £5 Fobkent + 1; 
midword := wordcent+(lolkentx(wordentel)rendbl «cnt ) 
end else begin 
rbolkent <= endbilkent div (wordent = 1); 
lIpblekemtE 2S rol kent + 17 
midword := endbikent + | = rblikent * (wordent - 1) 
ends 
leftside; 
rtside 
end 
end 
end; (* adjustin *) 





erocedure displavin; 


(*this proc causes one line of up to 80 chars 
to be disolaved on the crt screen at the line/ 
FOw POSItION indicated by rowno.*) 


begin (x dispiayin *) 
if poln then 
Colno == Imargqin + 1 
else 
Colno += Omargin + 17 
xyaddrfcolnor rowno); 


repeat 
eh 22> aetbutchar( +l). 
if textchar then begin 
write(ch) 
end 
until newline or eot 
end; (* dtsolayvin *) 
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procedure disolayscreen(col, 
(«this oroc causes uo to 
aataliy (24=—$)) or 21, 
on the ert screen. 


noliness, row: 
(lastIln=msaqlns), 
lines to be disolayed 
nolines 


is Gescrioded in 
Scdgttins col and row indycate the final 
cursor position.+*) 
var 
buftIncnt, Incnt: integer; 
begin (* 


Insoacina = 
write(clear) 
buflncent 3= 
Thent += 05 


rowno := 1 + msalns? 


ch s= startin (nolines)? 
reoeat 
disolayln-s 
Sut ocnt:.:=.butinent +213 
iment %*= lIment + 13 
FOWARO S= fFowno + 1; 
case Inspacing of 
es 
null? 
es 
if rowno < lastIn then begin 
l[saent: += Lacnt + 1; 
rOowno = rowno + 1 
end; 
Ly 
beain 
leecat kt e=inent +%2: 
rOWwNO $= rowno + 2 
end 
end (* case *) 
until Cinent >= lastlin = msglins) or eot; 
if eot then 
butncnt 2s bofinent = 17 
if row = 1 then 
setcurso¢c(cols <buthacnet) 
else if rowno = lastlIn then 
setcursor(lcol, 0) 
else 
setcursor(col,s wzbuflnent = row); 
if Insoacing = 1 then 
rowno := row + nsalns 
else 
rowno := row * Insoacing = Insoacing + 
xyaddr(colnor, rowno) 
end? 


integer); 


1 


(* displayscreen 


disnolayscreen *) 


+ msglins; 


x) 





procedure scrollup; 


(*this proc causes the user window to nove 
backwards thru the text far enouah to 

move 16 lines, 3/74's of a Screen, or 

until bot iS reached. It provides for an 

overlaDr 1.e. the too 5 lines will become 

the bottom 5 lines, for continuity.*) 


var 
uPplIns: inteaqer:; 


beqin (* scrolluo *) 
uplns $= overlao = lastIn + msalns * frowno:; 
disolavscreen(Imarain,uplns,lastilnensalinssoverlaonmt) 
end, f* scrolluo *) 


procedure scrolldown,; 


(*this proc causes the user window to move 
forward thru the text buffer far enough to 
move 16 liness 3/4's of a Screen, or until 

eot is reached. It orovides for an overlap, 
{#.e. the last S lines will become the too 5.) 


var 
downtns: inteaer; 


begin (* scrolldown *) 
downtIns := lastIn = msalns = overlao = rowno; 
Gisplayscreen(Imargqins down!ns, overlao = 1) 

end, (* scrolldown *) 
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procedure charownolinc: integer); 


(xthis proc causes the row numbe incremented to be 
or decremented by 1. It uses the terminal's Hw 


scrollina feature when at the bottom In on the CRI.*) 


begin (* chgqrowno *) 
at Cine = =-1) and €rowno = 1) then 
Serol lus 
else 


case Insoacing of 
ig 
if rowno < lastin then 
FOWMO i= roOwno + IAC 
else begin {rowno=lastIin} 
write(lf); 
disolayln 
end, 
et 
if rowno < lastIn then 
rOwNO := rowno + 2 * Ine 
else begin {rowno=lastin} 
write (lt, f)3 
disolayln 
end; 
33 
if rowno < lastIn = 2 then 
rFOWNO $= rowno *+ 3 * Ine 
else begin {rowno=lastin=c} 
write(lf, lf, | ie lf); 
disolayln 
end 
end (* case *) 
end; (* chqrowno *) 





procedure maocursor(inc: integer); 


(ekthis proc dunlicates the cursor movement 
on the screen aS movement thru the buffer 


so that there 


1S a onertorone corresnondence 


between the cursor char and the huffer char.) 


(tine has the values +1 and 


beqin 
if bop or bholn then beatin 
case inc of 
neql: 


hegin {wraoaround to end of orevious 


Chace Starrant=!)5 
if boln then 


eo0tno == Imarqina + 


else 


colno = omaraqin + 


end; 
posl: 
{go forward to next line} 
1f boln then 
colno := Imargin 
else 
colno $= omargin 
end; {case} 
charownolinc) 
end else 1f bot then 
oromot(19) 
else 1f eot then 
promot (14) 
else 
{other format commands} 
null 
end; 


=") 


fx mapcursor 


Inlemoath + 1 


Inlenoth + 1 


(* 


Pia 


maocursor 


*) 


In} 


x) 





function oetéecharlinc: inteaer): char? 


(*this func returns only disolayable text 
chars from the buffer. Tt tanores the format 
commands embedded in the buffer. *) 

(* inc has the values +1 and -1 *) 


const 
neql = -1; 
posl = +l; 
beqin (toe tehar *) 
case inc of 
neql: 
repeat 


en *3 veetbufchar(=1)7 
if formatchar then 
maocursor(=-1) 
else 
colno 2= colno =- 1 
Until textenar or bor: 
posi: 
repeat 
¢h t= getbufchart?+!); 
if formatchar then 
maocursor(+1) 
else 
COlnOys= Colne +44 
until textchar or eort 
end; (* case *) 
if bot or eot then 
repeat 
eh <= eetbutchar(-inc) 
until textchar; 
qetchar := ch 
end: (* qetchar *) 


1 le, 





orocedure titleomfix(var omchars: inteaer); 
(*this proc chanaes the oaraaraodh marains 
to conform to thesis manual specifications 
for indentation.*) 


beatin (ke titleomfix *) 
case ch of 
ee 


omarain := 17; 


ee 

oOmarain := 173 
ee 

Oomarain := 21; 
was 

omarain := 253 
"Sots 

Oomarain := 17 


end; {case} 
onchars 2:= rmargin = Omarain + 1 
end? (% titleomfix *) 
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orocedure orocessbufl(start, finish: integer); 


(*this proc orocesses the buffer after text 
insertion, deletion or format chanaess e€.3. 
rFmarain or Imargin. Only the oaraaraph(s) 

involved in text changes will he reprocessed. ®*) 


var 
Imcharsse omcharss, nocharss, cntr: integer; 
halt: boolean; 


procedure onlyread(stoo: char); 
(athis proc orevents orocessina of specially 
focmatt®a text Such as €itles, ete.*) 


begin (* onlyread *) 
reoeat 
ch := getbufchar(+1) 
until Cceh = stoo) or ect; 
halt := true 
end; (x onlyread *) 
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heain (* processhuf *) 


Imchars := rmargin = Imargin + 13 
pmchars $= rmarqin ~- omargin + 13 
malt t2) ta )se; 
ch s:= startin(9); 
if bufindx > start then heain 
reopeat 
en := start in(=-1) 
until boo and (bufindx <= start) or hor;3 
if bot then 
repest 
civ>s= Ge€toufchar(#! ) 
until newline 
end; 
if bop then 
nochars := omchars 


else 

nochars $= Imchars; 
reoeat 

Cntr := 0; 

repeat 


en t= oetoutchar(+1-)7 

if textchar or boln then begin 
Cntr “s="-catr + 2s 
1f boln then begin 


en 33 ' % 
nufferfbufindx!] <= ch 
end 
end else if ch = filltoffch then 
onlvread(fillch) 
else if ch = titlech then heain 


ech $= aetoutchar(+1)7 
titleomfixlomchars); 
onltyread(on) 


end else if ch = taoch then 
nochars %= nochars = tad 
until newline or (Centr = nochars) or eot or 
if not (newline or halt or eot) then begin 
1f "ch <> * * then 
(* backtrack to space before word *) 
reopegt 


ch s= aqetoufchar(-1) 
Gata en = * 1% 
bufferf{bufindx] = Im; 
nochars := Imchars 
end else if boo then 
nochars := omchars 
else if halt then 
halt := false 
until boo and (bufindx >= finish) or eot 


end, (x processbuf *) 


bee 


halt; 





procedure movecursors: 


(ethis proc causes the cursor to move on the screen 


as well as mapping the cursor mo 
movement thru the buffer. *) 
beain 
if inchar = riaht then 
(* move forward 1 col *«) 
eh. += aetchor (+7 ) 
else if tinchar = left then 
(x move hackward 1 col *) 
ch := aetchar(-~1) 
else if inchar = up then beain 
setcursort(colnos =-1)3 
charowno(-1) 
end else if inchar down then 
setcursor(colno, +1); 
charowno(+1 ) 
end else if inchar = "VJ" then 
(* backward 3/4's screen *) 
scrolluo 
else if inchar = 'D' then 
(* forward 3/4's screen *) 


scrolldown 


else if tnchar = ‘bh’ then bea) 
(* go to the beginning of f1 
jmotomarker(botchar, ~-1);3 
displavscreen(Imarain, OO, +1 

end else if tinchar = ‘e' then 
(* go to the end of file *) 
jmotomarker(leotchar, +1)7 
displayscreen(rmarain, w-fe * 


end else if inchar = 
(* move to lst col 
setcursor(|Imarain, 
charowno(tl) 

end else if 
null? 

xyaddr(col 4, 

write(ch); 

xyaddr(colno, 

end, 


er nen <b 
of next I 
a ea 


ynchar = ‘oa 


then 
last ind? 


rowno) 


vement to the 


(* movecursor 


*) 


(* move uo 1 


begin (* 


Nn 
le *) 
) 


hearin 


overlao) + 
eqin 
Ine down 


*) 


(* movecursor *) 


te3 


lve 


line 


move down 


*x 


x) 


1 line 


over]ao) 





procedure readraws 


(*this oroc reads the raw file, if oresents into 

the buffer and reorganizes the buffer into the 
correct structures if non file 1s noresent tne bhuffer 
is set uo for the creation of a new file.*) 


procedure newbufinit; 


{x*this proc initvalizes the buffer for the 
creation of anew file.*) 


beaqin (* newbufinit *) 
(xbotchar:iformatreciom: insert area teotchariempty*) 
(ktbheaindx, ee rinsheg, tinsend: (hut lama t*) 

beqindx := 1; 

bufferlbegindx)] %= botchar; 

bufferf{pegindx + 17 t= om; 

bufindx s= beqimds * Ls 

insbeo i= heaqingy + 27 

insend := buflimit - 2; 

butter fouflimit = 1] := eotchar 
ends (* newhufinit *) 
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procedure nrocessfraw, 
(*this proc processes the raw file by counting off the 
no. of chars to be in a line after the maroin spaces 
are considered and includes tne oroper soacing consid= 
erations. 4A orocessed line is oreceded by a Im or om 
if 1t 1S @ Daragrann. Previously set Im's are blanked*) 
var 

cntrs, Imcharss nochars, onchars: integer? 
beqin (x processraw *) 


omchars $= rmargqin = omarain + 1; 
Imchars $= rmargin = Imaraqin + 1; 
nochars := Imchars; 
bufindx := 0; 
foots O07 
while not eoflinfile) do begin 
enter. 22 “};3 
reneat 


read(infile, ch); 
SUT Tad) t= cbut roax + 1s 
Vfors | leh 
1f textchar or boln then begin 
Entre $= enter +7743 
if boln then 
ch = 4 ] 
end else if hop then begin 
nochars := omchars,; 


ji 3= Q 

end else if ch = tabch then 
noehars == neochars = tab 

else if ch = titlech then beatin 


buf fertoutindx] = ch; 
butfindx. <= bufinds +. 1, 

read(infile, ch); 

titleopnfixlomchars) 


end, 
buf ferloutindx! <= ch 
until newline or (Centr = nochars) or eoflinfile); 
if not (newline or eoflinfile)) then beaqin 
if ch = ' ' then begin 
buffer{bufindx] 3:= Im; 
fcs= & 


' '§ before word} 


end else begin {backtrk to 
pics OF 
repeat 

poses joe 1 

until bufferlbufindx ©- jl = ' '; 
buffer[bufindx ©- jl] %:= Im 

end; 

nochars := Imchars 

end 
end 
ends (* processraw *) 


les 





procedure oldbufinit? 
(xethis proc initializes the buffer after an existing 
file has been read in.*«) 


var 
hufend: integer; 


bean €* oldbutanit.*) 
(xhotchar,formatreciom:rinsert areaittextieotcharremoty*) 
promet (14); 
orocessfaw: 
bufend := hufindx; 
j 2t= buflimit - 1; 
1 = bufend; 
reoceat 
bufferfjl := 
bufferli)] := 
1 3= 31 2° 13 


ynsend 3: 
beqindx 
inspeg 
end: (* oldbufinit *) 
beain (* readcan *) 
setdefaults; 
write(clear)?: {for previous reads} 
fileread := true; 
reoeat 
Orompr(tt!)-: 
suserinout(1)- 
eh &= sstringtll 
unti) Céenv= “vy Jvor Ceh =" n* )2 
if ch = °A* then begin temoty new file} 
emotybuf = true?s 
newbufinit 
end else begin (* nonempty existina fite *) 
emotyouf := false, 
filename('r'); 
reset(infile, name); 
oldbufinit; 
bufindx t= begqindx + 13 
displavscreen(Imarain,s, 0, 1) 
end 
end; (* readraw *) 
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procedure writeraw; 
(*this proc writes the ouffer back to storage.*) 


begin (x writeraw *) 
filename('w'); 
rewrite(outfile, name); 
imotomarker(botchar, -1); 
ch := aeroufchar(0); 
write(outfile, ch); 
if not eot then 
repeat 
en s= eetbufchar( +1); 
if not (ch in [rubouts, bm, ems, nm)) then 


writelout tiles ch) 
until] eot; 
flush Cout Fite) 


end; (* writeraw *) 
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procedure listorocessed; 


{this proc orocesses the buffer and writes out 
the processed text to the usereindicated file 
for orinting w/ no coov saved.} 


var 
Incent: integer; 


orocedure blankline(nolines: integer); 


(ze this proc writes out a blankline of orocessed 
text to the output file.*) 


bheqin (xt blankxline *) 
for i= 1 to -nolines. do 
write(outfile, cr, If) 

end; (x blankline *) 


procedure endpage,s 

(*this proc performs the end of poaaqae 

Processing necessary for paaqe numberinar prooer 
marginSs etc.*) 


beatn (x endpaae *) 
reoeat 
blankline(i); 
lnent. 2 =, lacnt + 3) 
until nent >= maxoglns - oamargqin: 
if oageno <> 0 then beain 
write(outfiler, oageno: centerofpag): 
iment t= Iinent +*- 17 
paaqaeno := paaeno + 1 


end; 
blankline(maxpalns - Inent - binoffset) 
end, (* endoaane *) 
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procedure writetitlefindentn: 


(*this oroc writes out one 


beqin (* writetitle *) 
for 1-4= 1 to indentnan do 
write(outfile, ' ‘'); 
reoceat 
ch 3:= qertbutchar(+1); 
if not formatchar then 
writeloutfile, ch) 
until newline; 
write(outfile, cre I1f) 
end: 


integer); 


a title) 


(* writetitle 


le? 


*) 





procedure processtitle; 
classification as tist order, end order, etc, 
according to thesis manual instructions.*«) 
begin (* processtitle *) 
Giws= geroutchar(+1); 
case ch of 


endpage;, 
blankline(tmaraqin + 3)? 
Omarain := 17; 
writetitle(center); 
blankline(e); 

Incent := tmargin + 6 


end; 
ve 
begin 
it (tnent = tmarain) or (Cinent = tmargin + 
Incnt := Inent = 1 
else 


biankline tl); 
omarain := 17; 
writetitle(Ilmargin),; 
blankline(1); 
Imnent <= Inent + 3 
end; 
gts 
beain 
pmarain <= e1% 
writetitle(Imargin + 4); 
blankline(1); 
lment t= > Tnent + e€ 
end; 
Lr Haas 
beaqin 
oOmarain := 25; 
writetitle(€lmargin + 8)? 
blankline(l); 
Incnt 2= Inent + e 
end; 
sae 
beain 
endp3ge, 
blankline(tmarain + 3); 
omarain := 173 
writetitle(center); 
blankline(2); 
Incent $= tmargin + 6 
end 
end {case} 
end; (x processtitle*) 
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procedure listlin; 


(xtnis proc writes one line of processed text 
to the outout file.*) 


begin Cx leer in *) 
if ch = titlech then begin 
processtitle; 
atitie := true 
end else begin 
if boln then 
for 1 22/7 toOcimacarn ao 
write(outfile, ' ') 
else if hop then 
for 192 = | to coOmerain do 
writeloutfiles, ° °°) 
else if ch = breakch then 
for i “=> 1 to. Imararn do 
write(outfile, ‘* ‘') 
else if ch = oaejectch then 
endpage,s 
repeat 
ch 3:= qetbufchar(ti); 
if not newline then 
if textchar then 
writeloutfile, ch) 
until newline or eot? 
write(outfile, cr, 1|f) 
end 
end; (x listIn *) 


rS1 





beqin (* listorocessead *) 


atitie t= false; 
Inspacina :s 23 
alisting := true; 


filename; 
rewrite(outfile, Istrina); 
jmotomarker(botchar, -1)3 
reoeat 

ch $= qetbufchar(+1) 
until newline; 
promopt(12); 
suserinput(3); 
convertnum(l, pageno); 
eenterofog := (Crmargin - Imaraqin) div 2 + Imarain; 
promot(i5); 
tmargin := tmarain - tlnoffset 
bmargqin $= bmargin + binoffset 
OpgmMargin $= ogmarain + blinoffset; 
reoeat 

blankline(tmargin); 

Incent s= tmargin; 

repeat 

listln; 
If <not aetitle then 
case Insoacing of 
j 
nent t= Fnent +17 


e 
s 
e 
’ 


23 
beain 
SlanklineG))? 
Inent = Inent + 2 
end; 
2 
beain 
blankline(2?); 
Inent 2:2 Inent + 3 
end 
end (* case *) 
else 


atitle := false 
until eot or (Inent > maxoalns = bmarain); 
endpace 
until eot; 
pauses 
alisting := false 
end; (x listorocessed *) 
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begin (x checkmarkers *) 
markersok <%= true; 
case calledby of 
ue aati 
{Addftile} 
mtestS; 
i oa 
{copy} 
if begmset and endmset and newmset then beain 
mtestl; 
mteste 
end else begin 
mtest 3; 
mtest4; 
mtestS 
end: 
i ade 
{move} 
if begmset and endgrset and newmset then beatin 
mtestl;: 
mteste 
end else beqin 
mtest 33 
mtest4; 
mtest5 
end? 
er ae 
{reolace} 
if begmset and endmset then 
mtestl 
else begin 
mtest 3; 
mtest4 
end: 
Me oi 
{search} 
if begmset and endmset then 
mtestl 
else begin 
mtest3; 
mtestd 
end; 
‘Xe 
(Xtraccts the} 
if begmset and endmset then 
mtestl 
else begin 
mtest 3; 
mtest4d 
end 
end {case} 
end; (x checkmarkers *) 
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procedure format; 


begin (x format *) 
promot(3) 
end; (x format *) 
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procedure edit; 
var 
exits boolean; 


orocedure cooy, 

(*this proc allows the user to conv/dupnplicate 

a hody of text w/in the buffer as long as the 
entire copy will fit into the buffer. The 

material to be copied is delimited by e cursor 
settings. The new locn is also set w/ the cursor. 
Note that the copy will oreceed the cursor locn. *«) 


var 
inc, textlength, start, finish: integer; 


procedure copoychar, 
(xtthis proc actually oerforms the char 
transfer in the conying®*) 
heaqin (* coopychar *) 
bufferfinsend] := em 
bufferlendindx] := e 
repeat 
insend := insend = 13 
endindx $= endindx - 1; 
bhufferfinsend]) 3:= bufferfendindx]} 
until endindx = heaindx + 1; 
bufferflinsend - 1) 3= bm; 
bufferfoegindx) = om, 
insend := insend = e 
end; (**copvenar *) 
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begin (x coov *) 
checkmarkers('e'); 
if markersok then 
1f insend = insbeqg > endindx = begindx then beain 
textlength := endindx = beaqindx; 
if bufindx < newindx then 
ine == +] 
else if bufindx > newindx then 


| 


repeat 
ch f= getbuftcharline) 

until ch = nm; 

repeat 
ch := qetbufchnar(-1) 

until not formatchar; 

if endindx < insbea then beain 

Coo 4 OM bese COM 16 eet POSE Od HAM, <6) 

start %= begindx:; 
finish t= tinsend + 1 = text lenath: 
copoychar 

end else begin 

Meg sy (SOM Ala see sO. <0 5 1 OM: wae? 
bufindx = insend + e; 
reneat 
ch s= bufferlbufindx]; 
bufindx !:= bufindx + (+1) 

until ch = em; 
endindx := bufindx = 13 
beaqindx %= endindx - textlenath; 


start := insend + 1 2* textlength; 
finish := endindx = textlength: 
eooycnar 

end; 


bufindx := insheo = 1; 

jmotomarker(nm, +1); 

bufferfbufindx] %= am; 

orocessbufl(start, finish) 
end else 

errormsg(19) 


end; (x copy *) 
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procedure delete; 

(xthis proc allows the user to delete chars in 
either the right or left direction by moving the 
cursor in the desired direction. an entire line 
of chars 1s deleted if the cursor is moved up or 
down. deletion in the buffer only occurs upon 
user acceotance. note that format cmds w/in the 
deleted area are also lost.*) 


var 
forwrd, backward, finished: hoolean; 
stoop: inteaer, 


orocedure delscreen(dir: char); 

(«this Droc writes olanks or blank lines to 

the screen to Show how the deletion will 

appear. note no deletion occurs in the buffer.*) 


beain (x delscreen *) 
{deletion only reflected on screen} 
if (dir = riaqht) and not backward then begin 
forwrd <= true, 
write(' '); 
ch <=] aqetchart+t) 
end else if fdir = left) and not forwrd then begin 
backward := true, 
write(lteft, ‘' ‘, left); 
éh “= oet char t=1) 
end else if (dir = uo) and not forwrd then pegin 
backward := true, 
blankIn(Crowno); 
sSetcursor(rmaraqin, -1)3 
charowno(-1); 
if frowno = 1 then begin 
scrolluo; 
for, 1 *= 1 to overlap = 1°00 
blankIn(rowno + 1) 
end 
end else if (dir = ' ') and not backward then begin 
forwrd := true, 
blankIn(rowno); 
setcursor(Imaraqinys +1); 
charowno(+i) 
end else 
errormsg(9)-; 
xvaddr(colno, rowno) 
ends (x delscreen *) 
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procedure delorocess; 

(*this proc causes the deleted text to be 
removed from the buffer and processes the 
remaining text aS required,.*) 


begin (* delorocess *) 
delend := bufindy; 
if forwrd then negin 
4{..+:. GdevJete area |} insert area jt«<s? 
foee G@heaq:...idelend! inshea;..<.linsend!...} 
bufindx := delbeq; 
repeat 
ch 2=. cqetoutchar(=1)3 
if formatchar then 
delneg := delbeg - 1 
unt?) textchar: 
insbeg := delbegq; 
processbuf(delbeq, delend) 
end else if backward then beain 
{.--$delchar! insert area ftdelete area i...) 
(3-6 eb -TAMSHb ea ts.oe tL 1NSENG) oc sce oe  CelUeO) <<<) 
bufindx := insbeaq - 13 
reoeat 
ch t= aetbufchar(=-1)7 
if formatchar then 
delend := delend = |i 
until textchars 
insend := delbeg; 
insbeg := delend; 
orocessbuf(delend, delbega) 
end 
end: (x delorocess *) 


138 





beaqin 
xyaddr(colnos, rowno)? 
finished := false; 
forwrd false; 
backward := 
deloeg := 
repeat 
read(inchar);> 
if inchar in (rieaht, 
delscreen(linchar) 
else 1f ch quit then 
finished true 
else if inchar = accept 
{deletion w/in buffer 
delorocess, 
finished = 
end else beaqin 
errormnsg(8); 
promoet(5); 


— 
e= 


false? 
hufindx; 


true 


Lett; wo, © ~~) 


(x delete *) 


{also downward} 
{also vuoward} 


then 
{no deletion 


then begin 
actually occurs} 


hon or bot? 


xyaddrlcolno, rowno) 
end 
until finished? 
if forwrd then 
stop := deloeg {hackxward} 
else 
stop := delend; 
repeat 
ch 3= aetoufchar(-1) 
until Coufindx <= stoo) and 
if bot then beain 
reoeat 
ch t= cetbufcharct et) 
until bolnm or boo or *eot? 
if eot then 
emotybuf := true 
end; 
if emptybuf then 


write(clear) 
else 
displayscreen(Imarain, 
ends 


-overlaor 


(x delete *) 
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procedure exchange, 


(*this proc allows the user to chanaqe both format 
commands and text characters directly in the boufter. It 18 
primarily used for trouble~shootina.*) 
beain (x 
reoeat 
read(inchar); 
if inchar <> quit then beaqin 
bufferfbufindx) = inchar; 
ch ¢= aqetbufchar( +1); 
xyaddr(4, lastin); 
if textchar then 
write(ch) 
else jf hoo then 
Wrire c's" ) 
else 
wreite€'\") 


exchange *) 


end 
until inchar = quits 
disolayscreen(Imarain,sg O, +1) 
end; (t exchange *) 
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procedure insert? 


(* this oroc causes text to he added to the 
buffer before the char indicated by the cursor. *) 


var 
ir jo INsposS, Insquit: integer; 
finished: boolean; 


procedure inserterase; 

(xthis Proc moves the cursor back to the preceding 
char and blanks out the last entered char. wrao- 

around occurs, in addition the cursor movement is 

duplicated in the buffer.*) 


begin (* jinserterase *) 
if bufindx > insoos then beain 
Ch s= buffer toufinds!, 
{wraoaround from new emoty line} 
1f teh = filleh) of (ch = filloffch) then oSegin 
fi 10. $= noe F411 
buftndsx t= sbafinds =— 1; 
insbeg := insbeq - 1 
end else if not newline then begin 
bufindx := bufindx« - 1; 
insbeq := insbeq = 1; 
ch s= bufferlbufindx!? 
weirte(lett, ' %,. vert) 
end; 
if newline then beain 
{wracaround to end of previous line} 


Pots ty 


= bufferlbufindx = 117, 
voc; peti 
until newline; 
if boln then 
colno := 1 27 1 + Imargin 
else if hoo then 
colno := i = 1 + omaraqin 
else if ch = tabecn then 
colno := i = I + Imaraqin + tabs 
rowno := rowno = 1; 
buftingdx += bufindx = TI; 
xyaddr(colno,r, rowno) 
end else {same line erase} 
coine <= colno = |! 
n 
; 


end else begi 
errornsg(/7) 
oromot(2); 
xyaddr(colnor rowno) 
end 
end; (* inserterase *) 
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procedure endline(nowraoned: inteaer); 

(xthis Oroc removes extra blanks from the end of 
the previous line, sets the Im or om, orepares 
the crt screen to display the next inserted char 
and rotates chars to fill the striooved slots. 


nowrapned 1S the #4 of chars to be written to the 
new line.*) 
var 
bastcnh: char; 
begin (* endline *) 
{remove extra blanks at eoln if oresent} 
fees = 05 
reoeat 
Vastcn == buffertboufind* = 417 
fe ut 4 
until! lastreh <>" "3 
iNsbeg 3:= insbeq - j + 2; 
bufindx %*= butfiadx = j; + 27 


{ set marker } 

if bop then beain 
colno := omargin + 
bufferfbufindx]} := 

end else begin 
colno := Imarqin + 
bufferlbufindx) <%= 

end; 

{ orepare crt screen } 

if rowno < lastIin then begin 
rownNo := rowno + |; 
blankIn(rowno) 

end else 
werite(lf); 

xyaddr(colno, rowno);: 

{rotate and write wraooed chars} 

if nowraoped > 0 then 
repeat 


bufindx %:= bufindx + 17 


if j >= 2 then ; 
buffer{bufindx] := bufferlbufindx + 1]; 
write(bufferlbufindx] )7 
nowraoned := nowraooed - 1 
until nowrapped = | 
end: (x endline *) 
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orocedure outchar; 
(xthis proc adds another char to the buffer.*) 


beqin (* putchar *) 
bUtinax <= bufindx + 17? 
bufferfbufindx] %:= ch; 
insbeg := insbeg + 1 

end: (* putchar *) 


procedure insertchar?; 

(xthis proc adds a new char to the text buffer and 
provides automatic line wraparound. note that the 
current buffindx contains a char while insheq 15 
emoty.*) 


begin (* insertchar *) 
if fill then 
If colno <= rmarain then 
if ch = tabch then 
€01nG 2= e€olno + “Cab 
else begin 
write(ch); 
eolmo t= colno + 1; 
outchar 
end 
else if {colno > rmarain) and ch = * *) then 
endline(0) 
else begin {nonblank char at eoln} 
{if (colno>rmargin) and (ch<>!' ')} 
outchar, 
1 #2:= 17 {#4 of wrapoed chars} 
{backtrack to spoace hefore word} 
repeat 


7 35 1 


= buffer{bufind« = 117 
+ | 
- | 


une ch = we 
{olank out wraooved chars on screen} 
Commo: S= Golno fl. = 42 
xyaddr(colno, rowno); 
for}; $2.2 to it do 
write (* *); 
{write wraooed chars on new line} 
bufindx ¢= bufindx = if 
endline(i); 
€olno t= colno + i 
end 
else 
{no fillina or autowrao} 
putchar,; 
{check for full) buffer} : 
if insbea = insend - 1 then {full buffer} 
oromot(10) 
end; (* insertcher *) 
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Orocedure insformatcmd; 
(xthie proc adds format commands ton the buffer and 
handles special insert entriesr e.a. tadles.*) 


beain (* insformatcmdchar 
if bop then 
endline(0) 


else if (ch = cr) and not fill then beain 
{ ignore cr and fill } 
ech += lm: 
endline(0) 

end else if ch = filloffech then beoin 
putchar; 
fi iss] false 

end else if ch = fillch then beain 


outchar?: 
fill := true 
end 
end; (* insformatcmdchar 


procedure insprocesslaction: char); 

(*this proc Processes the inserted text and 
surroundina text as necessary. note that. 
emotybuf indicates the creation of a new file.*) 


begin (x insprocess *) 
if action = accent then 
action <= "8 


else 
setion t= *h"; 
case action of 
ee 
heaqin 
if emotybuf then begin 
imotomarker(hbotchar, =<1)7 
orocessbuflinsoos, buflimit) 
end else begin 
insquit := inshea = 13 
orocessbufl(insoos, inshea = 1) 
end, 
emotvouf := false 
end; 
as 
beain 
{no insertion occurs} 
insbesg := inspos; 
bufindx := inshbeg - 1 
end 
end {caseh 
end; (x insprocess *) 
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heqin (* insert 
if emptybuf then beain 
rowno := 1 + msglins; 
colno := omarqin + 1! 
end else begin 
(x blank out the end of the line *) 
xyaddr(colnor rowno); 
for 1 := colno to lastco!l do 
write(' ‘')>; 
blankIln€rowno + 1); 
(x insert before cursor *) 
ch := qetbufchar(-1) 
end; 
xyaddrlcolnosr rowno): 
finished := false; 
INSOCOS %= INSbeg;s 
reneat 
read(ch); 


if newline then 
insformatcmd 

else if textchar then 
insertchar 

else if ch = erase then 
inserterase 

else if (ch = acceot) or (ch = quit) 
insprocess(ch); 
finished := true 

end else begin 
errormsaqlo); 
promot(2); 
xyaddr(colnosr rowno) 

end 

uati|) fianvsheds 


if not emoptvbuf then begin 
repeat 
eh t= aqetbufchar(-1) 
until (Cbufindx <= insquit) or bot, 
displavyscreen(Imarain, 0, +1) 
end else 


write(clear) 
end; (* insert 
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*) 


then beatin 


x) 





Procedure locate; 

(*this proc oerforms a oattern search thru the 

file for the input pattern string and oositions 
the cursor at the "found" pattern or at the end 
of the searched area.*) 


begin (* locate *) 
errormsq(el) 
end? (* locate *) 


procedure move; 

(xthis proc allows the user to move text from 
one Olace to another in the buffer. The body 
to ve moved is delimited by 2? cursor settings. 
The new locn is also set with the cursor. 

Note the moved material will preceed the 
cursor postion*) 


beqin (* move *) 
nul] 
end, (x move *) 


procedure replace, 

(*this oroc will utilize the locate oroc to 
replace a soecified oattern w/ another one 
either once or multinle times win the 
delimited area of text.*) 


beaqin (x* reolace *«) 
errormsg(el) 
end: (* reolace *) 


ra 





orocedure Addfile; 
(xthis proc adds the user-soecified file to the 
buffer contents at the locn indicated by nm) 


var 
addoos, addquit: integer; 


beain (* Addfile *) 
filename('A'); 
setmarker, 
checkmarkers('A'); 
if markersok then beain 
addpos :2 buf inds; 
reset(infile, name); 
jneptomarker(botchar, -1); 
jmotomarker (nm, +1); 
read(infile, ch); 
repeat 
readlinfiles, ch); 
bufindx t= "bufind« + 13 
buffer foufindxl <= ch 
unts!) eoflinfile) or Chufindy = insend = 1); 
insbeq := bufindx + 1; 
addquit := bufindx; 
if not eoflinfile) then 
errormsg(23) 
else begin 
promot(8); 
repeat 
read(inchar) 
unt)1-wnehar in (757, 
if inchar = ‘y' then 
delmarkers 
end; 
processbuf(addoos, addauit); 
repeat 
ch := aetbufchar(~-1) 
until (Cbufindx <= addquit) or bot, 
displayscreen(Imaragins O-, +1) 
end 
end: (* Addfite *) 
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procedure Xtractfile; 
(*this proc writes the buffer contents delimited 
by bm and Im out to a file*) 
begin (* Xtractfile *) 
filename('X'); 
setmarker; 
checkmarkers('X'); 
if markersok then hegqin 
rewrite(outfile, name); 
write(outfile, botchar); 
jnotomarker(botchar, -1);3 
tmotomarker(bm, +1); 
ch 3= aetbufchar(t+!); 


reoeat 
writelout ft kay ch); 
ch := gqetbufchar(+!) 
until ch = eme 
write(outfile, eotchar); 
rewritel(outfile)?: {force dump of lastI/0 block} 
prompt(8); 
repeat 
read(inchar) 


until wachar if <Com'’s “y" )e 
if in¢chor = *y’® then 
delmarkers 
end 
end; (Cs Xtract ti }e *) 
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beatin (* edit 


if fileread then begin 
exit := false; 
orompt( 1); 
repeat 
xyaddr(colnos, rowno); 
read(inchar); 
if inchar in 


{er,down, left »riaqantsuoy,  D°y’U",*ots* 6*s tb! 


if not emotybuf then 
movecursor 
else 


*) 


errormsoa(2) (* text not oresent 


else if inchar in edemdset then begin 


case inchar of 
alee 
begin 
oromot(2l); 
Addfile 
end; 
Cun 
beaqin 
oromot(6); 
copy 
end; 
Co 
{Cursor movement } 
oromot(23):; 
aro ieee 
heain 
promot(5); 
delete 
end; 
is 
heain 
oromot(2); 
insert 
ends 
acer 
beain 
promot (17); 
locate 
end; 
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then 





Br) Rae 
heqin 
promot( 7); 


beain 
promot(1&); 
replace 

end; 

See 

beain 
eromet C16)3 
setmarker 


beain 
prompt (20) > 
exchange 
end; 
Ks 
beqin 
oromot(2e); 
Xtractfile 
end 
end; (* edit case *) 
rf not exit then 
promot (i) 
end else begin 
errormsg(4); 
promot (1) 
end 
until exit 
end else 
errormsg(3) 
end: (* edit *) 
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beatin 


(*this ts the driver for the command 
SEQRE < It allows the user to read 
the desired filers edit and format 

buffer and to save the file by writina 


level 
InN and orocess 
the file 


re 


and thus 


in the 
to the 


(** mainline of scope **) 


printer or to storage.*) 


stop := false, 

namingfile := false; 

fileread := false; 

cmdset = Pes ay ol ee Ley Vet ee ie 
edemdset i= 

Te eo tetas iG hg. ae eg ee oe el” ee et rk i 


cursormoveset := 
terminal; 
orinter; 
setdefaults, 
setformatcmds; 
write(clear); 
reneat 
orompot(4); 
suserinput (1); 
cmdchar := cmdll), 
if cmdchar tn cmdset 
case cmdchar of 
a 
readraws 
wees 
writeraws 
ee Me 


listorocessed, 


( * 


edit: 
Vay 
s$too += true, 
ee a 
format 
end (* decode case 
else 
errormsqll) 
until stove 
write(clear) 
end. 


[uordown,riaht,leftscr, 
(* promot msaq 


clearscreen 


in proc *) 


x) 


then 


*) 


ad 





tl. 


le. 
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